
Declaration of Prior Invention under 37 C.F.R. §1.13.1 



IfTpatent application Ser. No. 09/938,265, the Office Action of May 9 th , 2006, 
cited a publication entitled, "Corrigo Unveils Compelling Maintenance and 
Customer Service Solution for Property Managers at MultiTech 2000", hereinafter 
referred to as the Corrigo reference, to reject claims 8-21, 24 and 44-48 under 35 
USC §102(a) and to reject claims 43 and 49-56 under 35 USC §103(a) in view of 
U.S. Faf. No. 6,219,648. Thus, the Corrigo reference was used to reject all 
pending claims, i.e., claims 8-21 and 42-56 ("the claimed invention"). 

Based on knowledge and/or belief, and the evidence submitted herein, applicants 
hereby assert that the evidence submitted is sufficient to demonstrate and 
establish actual reduction to practice in this- country of the claimed invention prior 
to the effective date of the Corrigo reference dated March 16, 2000. The 
evidence includes copies of software indicating reduction to practice of the 
claimed invention prior to March 16. 2000, which accompany and form part of 
this declaration. 

All statements made herein of the declarants' own knowledge are true and all 
statements made on information and belief are believed to be true. 

Declarants are aware that and warned that willful false statements and the like 
are punishable by fine or imprisonment, or both (18 U.S.C. 1001) and may 
jeopardize-the validity of the application, or. any patent issuing thereon. 
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accept_bid.lpa 

<! — accept_bid - processes a bid acceptance and makes the proper db updates and 
messages 

Copyright 1999,2000 LandPort All rights reserved — > 

<CFPARAM NAME="session.inc_id"> 
<CFPARAM NAME="Session.rfq_id"> 

<CFPARAM NAME= ,, COm_text"> 
<CFPARAM NAME="po.num"> 

<CFPARAM NAME="mode"> <! — set to accept, reject, or comments_only — > 
<CFPARAM NAME="myJ>id" DEFAULT=""> 
<CFIF "accept" is "#mode#"> 

<CFSET next_state = #Application.inc_state_being_serviced#> 

<CFSET event_label = "bid accepted"> 

<CFSET user_text = "This bid has been accepted. The vendor will be informed."> 
<CFELSEIF "reject" is "#mode#"> 

<! — oo need to handle the case if we just rejected the last vendor - state 
should be 'recognized by propman' — > 

<CFSET next_state = #Application.inc_state_rfq_sent#> 

<CFSET event_label = "bid rejected"> 

<CFSET user_text = "This bid has been rejected. The vendor will be informed. "> 
<CFELSEIF "comments_only" is "#mode#"> 
<CFIF "" IS "#corrutext#"> 

<CFSET thanks_text = '#thanks_text#<font color^'red'^Error : You did not enter 
any comment s.</font>*> 

<! — oo Need a better handling of this - pass error code back to caller 

— > 

</CFIF> 

<CFSET next„state = #getincidentState.STATE_ID#> 
<CFSET event_label - bid comments to vendor "> 

<CFSET user_text = "Your comments will be forwarded to the vendor. "> 
<CFELSE> 

<! — oo Need a better handling of this - pass error code back to caller — > 
<CFSET thanks_text = '#thanks_text#<font color="red">Error : Cannot recognize 

button . </f on t> ' > 

</CFIF> 

<! — determine the contact strategy — > 

<CFQUERY NAME="getRfq" DATASOURCE^ #dsn#"> 

select CONTACT_STRATEGY from RFQS 

where ID = #Session.rfq_id# 
</CFQUERY> 

<! — Alter this incident's state if a bid has been accepted or 

if we are doing serial bidding and the current bidder has been 
rejected. The reason that the incident's status is not modified 
for a rejected parallel bid is because there may have been a previously 
accepted parallel bidder. Also, time bid only is not allowed for 
parallel bidding — > 
<CFIF ("accept" IS "#mode#") OR 

(("reject" IS "#mode#") and ("serial" is "#getRf q . contact — strategy#") )> 
<cfquery NAME=*"updatestate" DATASOURCE="#dsn#"> 
update INCIDENTS 

set STATE-ID = #next_state# 
where ID = #Session.inc_id# 
</cfquery> 
</cfif> 

<! — Get the right bid record from the db - desginated by my_bid — > 
<CFIF "" IS NOT rt #my_bid#"> 

<CFQUERY NAME="getBid" DATASOURCE="#dsn#"> 

Sel ect ID , ENT_SRV_ID , CORR_ID , FIRST^ACTION , COST_BID f START_TIME , END_TIME , 

VEN_COMMENTS from BIDS 
where ID = #my_bid# 
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accept_bid.lpa 

</CFQUERY> 
<CFELSE> 

<CFQUERY NAME="getBid" DATASOURCE="#dsn#"> 

sel ect ID , ENT_SRV_ID , CORR_ID , FIRST_ACTION , COST JID , START_TIME , END_TIME f 
VEN_COMMENTS from BIDS 

where RFQ_ID = #Session.rfq_id# 

</CFQUERY> 

<! — oo Need to handle multiple bids here - this code only looks at the first 

- — > 

<CFSET my_bid = #getBid.ID#> 
</CFIF> 

<! — Get the propman's correspondent id and other info — > 
<CFQUERY name= getPropManCorrid" DATASOURCE="#dsn#"> 

select PROPMAN_ID 
from INCIDENTS 

where ID = #Session.inc„id# 
</cfquery> 

<CFQUERY NAME="getPropManlnfo ,f DATASOURCE="#dsn#"> 

Sel ect FIRST_NAME , MI , LAST_NAME , ENTITY_NAME 
from USERJWIRG 

where CORRESPONDENT_iD = #getPropManCorrid.PROPMAN_iD# 
</CFQUERY> 

<! — Add an event to this incident — > 
<CFSET my_now = #createOdbcDateTimeCNow())#> 
<cfquery NAME="insertlncEvent" DATASOURCE= n #dsn#"> 

insert into INC-EVENTS (INCIDENT_ID , EVENT_TYPE , REFERENCE_ID , WHO_ID , TIMESTP) 

values 

(#Sessi on . i nci d# , 1 #event_l abel # ' , #my_bi d# , #getPropManCorrld . PROPMAN_lD# , 
#my_now#) 

</CFQUERY> 

<! — Add this vendor as a correspondent to the incident if the bid was accepted 
— > 

<! — Now get the bidder's info — > 

<CFIF "accept" IS "#mode#"> 

<! — this seems to not be referenced 

<CFQUERY NAME="getEntSrvlnfo" DATASOURCE="#dsn#"> 

sel ect ENTITY JD , SERVICE , ENTTTY_NAME , FIRST_NAME , MI , LAST_NAME , PRIMARY__CONT ACT 

from SERVICE_MRG 
where entity_service_ID = #getBi d . ENT_SRV_ID# 

</CFQUERY> 
> 

<CFQUERY NAME="insertlncCorr" DATASOURCE="#dsn#"> 
insert into inccorrs CiNCiDENT_iD f coRRjD f role) 

values (#Session.inc_id#,#getBid.CORR_lD#, 'vendor') 
</CFQUERY> 
</CFIF> 

<! — determine what kind of bid this is ~ time or complete — > 
<cfif "accept" is "#mode#"> 

<cfif (C r,n is n #getBid.C0ST_BlD#") OR (0 is "#getBid.COST_BlD#"))> 
<CFSET msg_type = #Application.msg_timeJbidlaccepted#> 

<cfelse> 

<CFSET msg_type = #Application.msg_complete_bid_accepted#> 

</CFIF> 

<cfelseif "reject" is "#mode#"> 

<CFSET msg_type - #Application.msg_bid_rejected#> 
<cfelseif " comment s_only h is "#mode# rf > 

<CFSET msg_type = #Application.msg_generic#> 
</cfif> 
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<! — if there were comments, attach them to the db — > 
<CFINCLUDE template = "add_inc_corrucore.1pa"> 

<!--- if the bid was accepted, then assign the vendor a po number — > 
<cfif ("accept" is "#mode#") and 

("" IS NOT #getBid.COST_BID#) AND (0 IS NOT #getBi d . C0ST_BID#)> 

<CFIF "" IS "#po_num#"> 

<CFSET po_number = "default"> 

<! — oo Need to generate real default po numbers here — > 

<CFELSE> 

<CFSET po_number = "#po_num#"> 

</CFIF> 

<CFQUERY NAME="updatePO" DATASOURCE-"#dsn#"> 
update INCVENDORS 

set po_num ~ '#po_number#' 
where INCIDENT_ID = #Session.inc_id# and 
ENTITY_SERVICE_ID = #getBl d . ENT_SRV_ID# 
</CFQUERY> 

<CFQUERY NAME="addvenCorrld n DATASOURCE="#dsn#"> 
update INCIDENTS 

set VEN_C0RR_ID = #getBi d . CORRJD# 
where ID = #Session.inc_id# 
</CFQUERY> 
</CFIF> 

<! — now build up a message to send back to the vendor — > 

<CFQUERY NAME-"getlncSummary" DATASOURCE="#dsn#"> 

Select ID, STATUS , HEADLINE , DESCRI PTI0N , UNIT„ID f UNIT_NAME , 

SERVICE-ID t SERVICEL-NAME , URGENCY from INC—SUMMARY 
where ID = #Session.inc_id# 

</CFQUERY> 

<! — send a message to the vendor describing the outcome — > 

<C FTRAN S ACTI0N> 

<CFQUERY NAME="insertMessage" DATASOURCE="#dsn#"> 

insert into MESSAGES (TIME_CREATED , MSG_TEMPLATE , SENDER, SUBJECT) 

val ues (#my_now# , #msg_type# , #getPropMancor rid . propman_id# f 
'Your bid on incident #Session.inc_id# has been accepted') 

</CFQUERY> 

<cfquery NAME="getMessageid" DATASOURCE="#dsn#"> 
select max (ID) as max_id from messages 

</CFQUERY> 

</ CFTRANSACTION> 

<CFSET my_message_id « #getMessageId.MAX_lD#> 

<! — Add the relevant components to the message — > 
<CFQUERY NAME="insertMsgComponent" datasource= #dsn#"> 
insert into msg_components (msg_id,msg_element_id,val) 

val ues (#my_message_i d# , #Appl i cati on . msg_el _i nci dent_i d# , ' #sessi on . i nc_i d# ' ) 

</CFQUERY> 

<CFQUERY NAME-'MnsertMsgComponent" DATASOURCE="#dsn#"> 
insert into msg_components (msg_id , msg_element_id f val) 

values (#my_message_id#,#Application.msg_el_bid_id# 1 '#my_bid#') 
</CFQUERY> 

<cfif is not "#com_text#"> 

<CFQUERY NAME-'^nsertMsgComponent" DATASOURCE="#dsn#"> 
insert into MSG_C0MP0NENTS (MSG__ID f MSG_ELEMENT_ID f VAL) 

values (#my_message_id# f #Application.msg_el_comments#, '#com_text#') 

</CFQUERY> 
</CFIF> 
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acceptjrid.lpa 

<CFSET signature « H #getPropManinfo.FlRST_NAME# #getPropManlnfo.Ml# 

#getPropManlnfo.LAST_NAME# f #getPropManlnfo.ENTlTY_NAMEr , > 

<CFIF "accept" IS "#mode#"> 

<CFOUTPUT> 

<CFSET subject = "Your bid on incident #Session.inc_id# has been accepted"> 
<CFSET body = 'You made a bid to service the following incident :<br> 

Incident number : #Session.inc_id#<br> 
Location : #getincSummary.UNlT_NAME#<br> 
Description : #getincSummary.HEADLlNE#<br> 
#getincsummary . OESCRlPTlON#<brxbr> 

Your bid has been accepted and you may begin servicing this job, when 
complete, please inform us by visiting 

<a href-"ven_dcl_done.lpa?inc_id=:"#session.inc«id#">this page</a> to declare the job 
as done. 

#com_text#<br> 

Regards ,<br> 
#signature#<br> 

</CFOUTPUT> 

<cfelseif "reject" is "#mode#"> 

<CFOUTPUT> 

<CFSET subject = "Your bid on incident #Session.inc_id# has been rejected"> 
<CFSET body = f You made a bid to service the following incident :<br> 

incident number : #Session.inc_id#<br> 
Location : #getincSummary.UNlT_NAME#<br> 
Description : #getlncsummary.HEADLINE#<br> 
#getincSummary . DESCRiPTiON#<br><br> 

Your bid has been rejected. 

#confL.text#<br> 

Regards, <br> 
#signature#<br> 

</CFOUTPUT> 

<CFELSEIF "comments_only" is "#mode#"> 
<CFOUTPUT> 

<CFSET subject = "comments regarding your bid on incident #session.inc_id#"> 
<CFSET body = 'You made a bid to service the following incident :<br> 

Incident number : #Session.inc_id#<br> 
Location : #getincSummary.UNIT„NAME#<br> 
Description : #getlncSummary.HEADLlNE#<br> 
#getincsummary . DESCRlPTlON#<br><br> 

I have the following comments regarding this bid :<br> 

#com_text#<br> 

Please respond so that we can proceed with this job.<br> 

Regards, <br> 

#signature#<br> 

f > 

</CFOUTPUT> 
</CFIF> 
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<! — call the sencLmsg template to process the message — > 
<CFSET my__recipient_id = "#getBid.CORR_lD#"> 
<cfinclude TEMPLATE= ,, sendLmsg . 1 pa"> 

<CFSET thanks_text = "#thanks_text# #user_text#"> 

<CFIF "NO" is #delivered#> 

<CFSET thanks_text = f #thanks„text#<font color="red">WARNlNG - could not find a 
channel available to deliver to recipient .</font> f > 

< ! <CFABORT> — -> 

</CFIF> 
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add_const_thanks . 1 pa 
<! — Copyright 1999 LandPort All rights reserved — > 
<! — <HTML> 

<HEAD><TiTLE>Add new constant field</TiTLE> 

</HEAD> 

<BODY> > 

<CFIF "area" IS #URL.type#> 

<! — first check to see whether this area already exists — > 
<CFQUERY NAME="findExistinQArea" DATASOURCE="#dsn#"> 
select 'x' from units where NAME = '#FORM.const#' 

</CFQUERY> 

<CFIF 0 IS NOT #findExistingArea.RecordCount#> 

warning : <CFOUTPUT><b>#FORM.const#</b> already exist s</CFOUTPUT> 

<SCRIPT LANGUAGE="3avaScri pt "> 

sel f . 1 ocati on=<CFOUTPUT>#URL . backto#</CFOUTPUT> 

</SCRIPT> 
</CFIF> 

<CFTRANSACTION> 

<CFQUERY NAME="insertUnit" DATASOURCE="#dsn#"> 

insert into units (parent_id , unit_type_id , name) values 
(#Sessi on . home_uni t_i d# , 1 , ' #FORM . const* 1 ) 
</CFQUERY> 

<! — get the ID of this last comment — > 

<! — <><> need to check to see if there is a better way to do this — > 

<CFQUERY NAME="getUnitld ,r DATASOURCE="#dsn#"> 

select max (ID) as MAX_ID from UNITS 
</CFQUERY> 
</CFTRANSACTION> 

<cfquery NAME="insertCorrUnitPrefs" DATASOURCE="#dsn#"> 

insert into corr_unit_prefs (correspondent_id,unit_id) values 
(#Sessi on . cor respondent^i d# , #getuni tld . MAX_ID#) 

</CFQUERY> 

<CFELSEIF "service" is #URL.type#> 

<CFTRANSACTION> 

<CFQUERY NAME="insertConst M DATASOURCE="#dsn#"> 

insert into CONSTANTS (NAME .DESCRIPTION) values 
( , #FORM.const#^ ,, ) 
</CFQUERY> 

<! — get the ID of this last comment — > 

<! — <><> need to check to see if there is a better way to do this — > 
<CFQUERY NAME="getConstId" DATASOURCE="#dsn#"> 

select max (id) as max_ID from constants 

</CFQUERY> 
</CFTRANSACTION> 

<CFQUERY NAME^'insertServices" DATASOURCE= M #dsn#"> 
insert into services (CONST_lD) values 
(#getConstld . MAX_ID#) 

</CFQUERY> 
<CFELSE> 

Error : unknown constant type <cfoutput>#url . type#</CFOUTPUT> 

</CFIF> 

<CFSET title = "Add new data"> 

<CFSET thanks^text = "New #URL.type# added. You can now use your browser's back 
button to return to the previous page, but be sure to hit the 'reload 1 or 'refresh' 
button on the browser to see your new addition."> 

<CFIF isDef i ned ("URL . backto")> 
<script language=" Javascript "> 

sel f . 1 ocati on="<CFOUTPUT>#URL . backto#</CFOUTPUT>" ; 

</SCRIPT> 
</CFIF> 
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add_const_thanks . 1 pa 
<CFINCLUDE TEMPLATE="thanks . 1 pa"> 
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adcLi nc_com_core . 1 pa 
<CFPARAM NAME="comment_type" DEFAULT="comment"> 
<CFPARAM NAME= M Session.inc_id"> 

<CFPARAM NAME="com_text M > 

<cfif "" is not "#com_text#"> 

<! — Create the inc_comments record — > 

<CFTRANSACTION> 

<CFQUERY NAME= M insertincComment" DATASOURCE="#dsn#"> 

insert into INCCOMMENTS (INCIDENT_ID , WHO JD , COMMENT) values 
(#sessi on . i nc_i d# , #sessi on . correspondents" d# , ' #com_text# ' ) 

</CFQUERY> 

<! — get the ID of this last comment — > 

<! — <><> need to check to see if there is a better way to do this — > 
<CFQUERY NAME="getCommentld" DATASOURCE="#dsn#"> 

select max (ID) as max_id from inccomments 
</CFQUERY> 
</CFTRANSACTION> 

<CFSET my_comment_i d = #getCommentld.MAX_lD#> 

<CFSET my_now = #createOdbcDateTime(Now())#> 
<CFQUERY NAME= ,, insertincComEvent" DATASOURCE="#dsn#"> 

insert into INC_EVENTS (INCIDENT.JED , EVENT_TYPE , REFERENCE_ID f WHO_ID , TIMESTP) 
values 

(#Sessi on . i nc_i d# , ' #comment_type# 1 , #my_comment_i d# , 
#Sessi on .correspondents d#, #my_now#j 

</CFQUERY> 
</CFIF> 
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adcLi nc_com_thanks . 1 pa 
<! — Copyright 1999 LandPort All rights reserved — > 
< ! <HTML> 

<H EADxTiTL E>Add comment to an incident</TiTLE> 

</HEAD> 

<BODY>---> 

<CFSET com_text="#FORM . comment# M > 
<CFINCLUDE TEMPLATE="add.i nc_corrucore . 1 pa"> 

<CFSET title = "Comments added to incident"> 
<CFSET thanks_text = "Your comment has been added "> 

<cfinclude template=" thanks . 1 pa"> 



page 1 



<html> 



add_new_constant . 1 pa 



<head> 

<title>Define new <CFOUTPUT>#URL.type#</CFOUTPUTx/title> 
</head> 

<body bgcol or= H <CFOUTPUT>#Sessi on . bgcol or#</CFOUTPUT>"> 

<hl><font face="Arial n >Define new <cfoutput>#url . type#</CFOUTPUTx/f ontx/hl> 

Note : It is currently difficult to delete <CFOUTPUT>#URL.type#</CFOUTPUT>s that 
are added with this form, so use this facility sparingly. 

<CFOUTPUT> 

<CFIF isDefined("URL.backto")> 

<cfset tack_on = "&backto=#URL.backto#"> 

<CFELSE> 

<cfset tacleon = ""> 

</CFIF> 

<f orm methods" POST" acti on="add_const_thanks . 1 pa?type=#URL , type##tack_on#" 
name="mai nf orm"x/CFOUTPUT> 

<pxfont face= n Arial M xCFOUTPUT>#URL.type#</CFOUTPUT> name : </fontxinput 
type="text" 

name="const" size="20"xfont face="Arial"> 

<input type="submit" 

value="Define new <CFOUTPUT>#URL.type#</CFOUTPUT>" 
name= ,, SUBMIT M x/fontx/p> 
</form> 

<HR> 

<cfset date_human = DateFormat(Now() , Application.lp_dateLjnask)> 

<CFOUTPUT> 

<p>Date this page was created: #date_human#</p> 
</CFOUTPUT> 

<pximg src="logo.GlF" alt="logo.GIF (2991 bytes) r, x/p> 

</body> 

</html> 
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Application. cfm 

<CFAPPLICATION NAME= ,, LandPort" CLIENTMANAGEMENT="YES" SESSIONMANAGEMENT="YES n 
APPLlCATiONTlMEOUT="#CreateTimeSpan(l f 0, 0, 0)#"> 

<CFSET DSN = "lp ,f > 

<! — <CFERROR TYPE= M REQUEST" TEMPLATE= M RequestErr . cfm" MAlLTO="thi elges@iname . com"> 
— > 

<!--- <CF ERROR TYPE=" REQUEST" TEMP LATE=" error . 1 pa"> — -> 

<!— - in normal operation the top CFIF should be enabled — > 
<CFIF NOT( lsDefined("Appli cation. initialized") ) > 
<!--- <CFIF ( 1 ) > ---> 

<CFSET Appl i cati on. initialized=l> 

<CFSET Appl i cati on . 1 andport_versi on="0 . 4"> 

<CFSET Appl i cati on. extern_url_base = "http://www.landport.net/fp4/"> 

<CFSET Appl i cati on. lp_date_jnask = ,f d-mmm-yyy"> 
<CFSET Appl i cati on. lp_time_mask = "h:mm"> 

<! — Background colors for pm, tenant, vendor — > 
<CFSET Application.prrubgcolor = M FFFFFF"> 
<CFSET Application.ten.bgcolor = "ffffff"> 
<cfset Application.ven_bgcolor = "ffffff"> 

<! — Colors for bi-color tables — > 
<CFSET Appl i cati on. line_color_a = "80FF80"> 
<CFSET Appl i cati on. line_color_b = "D0FFD0"> 

<! — Colors for bi-color tables for tenant — > 
<CFSET Appl i cati on. line„color_a_tenant = "cccc99 n > 
<CFSET Appl i cati on. line_color_b_tenant = "CCCCCC"> 
<CFSET Appl i cati on. header_color_tenant = "CCCCCC"> 

<! — Colors for bi-color tables for manager — > 
<CFSET Appl i cati on. line_color_a_manager = "99CC99"> 
<CFSET Appl i cati on. line^color_b_manager = H 99CCCC"> 
<CFSET Appl i cati on. header_color_manager = "99CCCC"> 

<! — Colors for bi-color tables for vendor — > 
<CFSET Appl i cati on. line_color_a_vendor = "FFCC66"> 
<CFSET Appl i cati on. line_color_b_vendor = ,! FFCC99"> 
<CFSET Appl i cation. header_color_vendor = "FFCC99 H > 

<! — Colors for bi-color tables for general info box — > 
<CFSET Application.table_color = "99CCCC"> 



<! — some handy constants — > 

<! — message element IDs — > 

<CFQUERY NAME= M getMsgElems" DATASOURCE= n #dsn#"> 

Select ID, NAME from MSG.ELEMENTS 
</CFQUERY> 

<CFLOOP QUERY="getMsgElems"> 

<CFIF "incident_id" is "#getMsgElems.NAME#"> 

<CFSET Appl i cati on. msg_el_incident_id = #getMsgElems.lD#> 
<CFELSEIF "time.limit" is "#getMsgElems.NAME#"> 

<CFSET Application.msg_el_.time_limit = #getMsgElems.iD#> 
<CFELSEIF "time_units" is '^getMsgElems.NAMEr^ 

<CFSET Appl i cati on. msg_el_time_units = #getMsgElems.lD#> 
<CFELSEIF "cost_limit" is "#getMsgElems.NAME#"> 

<CFSET Application.msg_el_cost_limit = #getMsgElems.lD#> 
<CFELSEIF "rfq_resp_expected M is '^getMsgElems.NAME*'^ 

<CFSET Appl i cation. msg_el„rfq_resp_expected = #getMsgElems.iD#> 
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Appl i cati on . cf m 
<CFELSEIF "why_bi liable" is "#qetMsgElems.NAME#"> 

<CFSET Appli cati on. msg_el_wnyjri liable = #getMsgElems.lD#> 
<CFELSEIF "rfq_id" is "#getMsgEIems.NAME#"> 

<CFSET Appl i cation. msg_el_rfq_id = #getMsgElems.lD#> 
<CFELSEIF "entity_service_id" is M #getMsgElems.NAME#"> 

<CFSET Appl i cati on. msg_el_entity_service_id = #getMsgElems.lD#> 
<CFELSEIF "&id_id" is "#getMsgElems.NAME#"> 

<CFSET Appl i cati on. msq_el_bid_id = #getMsgElems.ID#> 
<CFELSEIF "comments" is n #getMsgElems.NAME#"> 

<CFSET Appli cati on. msg_el_comments = #getMsgElems.lD#> 

</CFIF> 
</CFLOOP> 

<! — incident state IDs — > 
<CFQUERY NAME="getlncStates" DATASOURCE="#dsn#"> 
select id , name from inc_states 

</CFQUERY> 

<CFLOOP QUERY="getincStates"> 

<CFIF "reported" is "#getincStates.NAME#"> 

<CFSET Application. mc_state_reported = #getlncStates.lD#> 
<CFELSEIF "markedjn liable" is "#getlncstates.NAME#"> 

<CFSET Application. inc_state_marked_bi 11 able = #getincStates.lD#> 
<cfelseif "recognized_by_propman" is "#getlncStates.NAME#"> 

<CFSET Application. inc_state.recognized_by_propman = #getincStates.iD#> 
<CFELSEIF "rfq_sent" is "#getlncStates.NAME# T, > 

<CFSET Appl i cati on. inc_state_rfq_sent = #getlncStates.iD#> 
<CFELSEIF "time_bid_received" is "#getlncStates.NAME#"> 

<CFSET Application. inc_state_time_bid_received = #getincStates.lD#> 
<CFELSEIF "time_bid_accepted" is "#getincStates . NAME# > 

<CFSET Appl i cati on. inc_state_time_bid_accepted = #getlncStates.lD#> 
<CFELSEIF "completeJricLreceived" is M #getlncStates.NAME#"> 

<CFSET Appl i cati on. inc_state_complete_bicLreceived = #getlncStates.lD#> 
<CFELSEIF "job_cleared_for_work" is "#getlncStates.NAME#"> 

<CFSET Application. inc_stateLjob_cleared_for_work = #getincStates.iD#> 
<CFELSEIF "being_serviced" is "#qetlncStates.NAME#"> 

<CFSET Appl i cati on. inc_state_beinq_serviced = #getlncStates.lD#> 
<CFELSEIF "ready_for_inspection" is #qetincStates . name#"> 

<cfset Appli cati on. inc_state_ready_for_inspecti on = #getincStates.ID#> 
<CFELSEIF "work_okj>y_tenant" is "#qetlncStates.NAME#"> 

<CFSET Appl i cati on. inc_stateL_work_ok_by_tenant = #getlncStates.iD#> 
<CFELSEIF "work_okJ>y_propman" is "#getincStates.NAME#"> 

<CFSET Appl i cati on. inc_state_worklok_by_propman = #getincstates . id#> 
<CFELSEIF "work_ok_by„both" is "#getlncStates.NAME#"> 

<CFSET Application. inc_state_work_ok_by_J)oth = #getincStates.lD#> 
<CFELSEIF "retired" is "#getincStates.NAME#"> 

<CFSET Appli cation. inc_state_reti red = #getlncStates.iD#> 

</CFIF> 
</CFLOOP> 

<! — message template IDs — > 

<CFQUERY NAME="getMsgTempl atelds" DATASOURCE="#dsn#"> 
select ID, name from msg_templates 

</CFQUERY> 

<CFLOOP QUERY="qetMsgTempl atelds"> 

<CFIF "generic" is "#getMsgTenipl atelds. name#"> 

<CFSET Appli cati on. msg_generic = #getMsgTemplatelds.iD#> 
<CFELSEIF "inc^create" is rf #getMsgTempl atelds. NAME#"> 

<CFSET Appli cati on. msq_inc_create = #getMsgTemplateIds.lD#> 
<CFELSEIF "marked_bi liable" is "#getMsgTempl atelds. NAME#"> 

<CFSET Appli cati on. msg_marked_bi 11 able = #getMsgTemplatelds.ID#> 
<CFELSEIF "rfq" is "#getMsgTemplatelds.NAME#"> 

<CFSET Appli cati on. msg__rfq = #getMsgTempl atelds . ID#> 
<CFELSEIF "rfq_decline" is "#getMsgTempl atelds. NAME#"> 
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<CFSET Application.msg_rfcudecline = #getMsgTemplatelds.lD#> 
<CFELSEIF "bid" is "#getMsgTemplatelds.NAME#"> 

<CFSET Application.msg.bid = #getMsgTemplatelds.lD#> 
<CFELSEIF "timeJ>id_accepted M is rt #getMsgTemplateids.NAME#"> 

<CFSET App1ication.msg_time_bid_accepted = #getMsgTemplateids.n>#> 
<CFELSEIF "comp1ete_bid_accepted" is "#getMsgTemplatelds.NAME#"> 

<CFSET Application.msq_completeJricLaccepted = #getMsgTemplatelds.lD#> 
<CFELSEIF "work_approved n is *'#getMsgTemplateIds.NAME#"> 

<CFSET Application.msg_work_approved = #getMsgTemplatelds.lE>#> 
<CFELSEIF "ready_for_inspection" is "#getMsgTemplatelds . NAME#"> 

<CFSET Application.msg_ready_for_inspection = #getMsgTemplatelds-lD#> 
<cfelseif "work_disapproved" is "#getMsgTemplatelds.NAME#"> 

<CFSET Application.msg_work_disapproved = #getMsgTemplatelds.lD#> 
<CFELSEIF "bid_r ejected" is "#getMsgTemplatelds.NAME#"> 

<CFSET Application.msgJ)id_rejected = #getMsgTempl atelds . ID#> 

</CFIF> 
</CFLOOP> 
</CFIF> 
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<!— Copyright 1999,2000 LandPort All rights reserved — > 

<! — now get the vendor's correspondent info — > 
<CFQUERY NAME="getincident" DATASOURCE="#dsn#"> 

select VEN_CORR_ID,STATE_ID from INCIDENTS 

where ID = #Session.inc_id# 

</CFQUERY> 

<!--- Determine the next state based on which button was pressed and whether the 
tenant has approved of the work — > 

<CFSET send_message = "no"> <! — default unless there is a good reason to bug 

vendor — > 

<CFSET opt_not = ""> 

<CFIF #lsDefined("Form.disapprove")#> 

<CFSET event_name = "worklnot_ok_by_#URL- role#"> 

<CFSET next_state = #Application.inc_state_being_serviced#> 

<CFSET msg_subject = "Your work on incident #Session.inc_id# was not approved"> 
<CFSET send_message = "YES"> 
<CFSET opt_not = not"> 

<CFSET msg_type = #Application.msg_work_disapproved#> 
<CFELSEIF #lsDefined("Form.Approve")#> 

<CFSET event_name = "workLok_by_#URL. role#"> 

<CFIF (("propman" IS "#URL.role#") and (#getincident.STATE_lD# is 
#Appl i cati on . i nc_state_work__okJ>y_tenant#) ) 

OR (("tenant" IS "#URL.role#") and (#getlncident.STATE_iD# IS 
#Appl i cati on . i nc_state_work_ok_by_propman#)) 

OR (("propman" is "#URL. role#") AND IsDefined("URL.override"))> 
<CFSET next_state = #Application.inc_state_work-.ok_by_both#> 
<CFSET msg_subject = "Your work on incident #session.inc_id# was approved"> 
<CFSET sendjiessage = "YES"> 

<CFSET msg_type = #Application.msg_work_approved#> 

<CFELSE> 

<CFIF "propman" IS "#URL. role#"> 

<CFSET next_state = #Application.inc_state_work_ok_by_propman#> 
<CFELSEIF "tenant" IS "#URL. role#"> 

<CFSET next_state = #Application.inc_state_work_ok_by_tenant#> 
</CFIF> 
</CFIF> 
<CFELSE> 

This statement should never appear - contact Landport staff 
<! — should never happen — > 
<CFSET next_state ■ #getlncident .state_id#> 
</cfif> 

<CFSET my„recipient_id = "#getincident .VEN_CORR_ID#"> 

<CFSET page_title = "Approve of work on incident #session.inc_id#"> 

<CFSET msg_first_line = "Your work on incident #Session.inc_id# was #opt_not# 

approved :"> 

<CFSET msg_el_id = #Application.msg_el_incident_id#> 
<CFSET msg_comp_val = #Session.inc_id#> 

<CFSET display_msg = "work on incident #Session.inc_id# was #opt_not# approved"> 
<! — oo if the tenant is the last to approve then the message comes addressed 
from the tenant. This should probably be the propman instead — > 

<CFIF "propman" is "#URL. role#"> 

<CFSET back = "prruservice_sum.lpa"> 

<CFELSE> 

<CFSET back = "ten_pend_req.lpa"> 

</CFIF> 
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<CFINCLUDE TEMPLATE="yes_no_thanks - 1 pa"> 
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<CFPARAM NAME="URL.inc_id"> 

<CFSET Session. inc_id = "#URL.inc_id#"> 

<CFSET heading = "Build Request for Quote for lncident"> 
<CFSET suppress.log = "YES > 
<cfinclude TEMPLATE="i ncjiead . 1 pa"> 

<body bgcol or="<CFOUTPUT>#Sessi on . bgcol or#</CFOUTPUT>"> 

<CFOUTPUT> 

<pxa href="cat_bill .lpa"xfont face="Arial">categorize this request as 
billable</a> if the tenant is responsible.</fontx/p> 

</CFOUTPUT> 

<h3xfont face= n Arial">Generate Request for Quote from service vendor</fontx/h3> 
<CFQUERY NAME="getVendors" DATASOURCE="#dsn#"> 

sel ect ENTITY_ID , SERVICE_CLASS_ID , SERVICE_CONTACT , SERVICE , 

ENTITY_NAME l PRIMARY_CONTACT,ENTITY_SERVICE„ID from SERVICE_MRG 

where SERVICE_CLASS_ID = #getincSummary.SERVICE_ID# 

</CFQUERY> 

<CFIF #getvendors.RecordCount# is 0> 

<font face="Arial">There are no vendors available to service this type of problem 
</font> 

</BODY> 
</HTML> 
<CFABORT> 
</CFIF> 

<! — Try to convert service name into something that works on the YP lookup — > 
<CFQUERY NAME="getGTEName" DATASOURCE="#dsn# n > 

select gte_name from LP2GTE 

where LP_NAME = ^getincSummary.SERVlCE.NAME*' 
</CFQUERY> 

<CFIF 0 LT #getGTENAME.RecordCount#> 

<CFSET lookup_service = "#getGTEName - GTE_NAME#"> 

<CFELSE> 

<CFSET lookup_service = M #getincSummary.SERVlCE_NAME#"> 
</CFIF> 

<CFSET unit_id = ^getincSummary.UNiT.iDTV 
<CFINCLUDE TEMPLATE="uni t2address . 1 pa"> 

<h3xfont face="Arial">Set Dob Parameters :</fontx/h3> 

<form method="POST" action="build_rfg_thanks.lpa"> 
<! — <form method="POST" action="/cgi-bin/sampl eform.pl"> — > 
<table border="0" width="10Q%" cellspacing^l" cellpadding="2"> 
<tr> 

<td width="25%" bgcol or="80FF00"xh4xfont face="Arial ">cost limit</fontx/h4> 
</td> 

<td width="25%" bgcol or="80FF00"xh4xfont face="Arial">service response time 
1 i mi t</f ontx/h4> 
</td> 

<td width="25%" bgcol or="80FF00"xh4xfont face="Arial ">vendor response 
requested</fontx/h4> 
</td> 

<td width="25%" bgcol or="80FF00"xh4xfont face="Arial ">bid 
processi ng</fontx/h4> 

</td> 
</tr> 
<tr> 
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<td width="25%" bgcolor="80FF80"> <pxfont face= n Arial">$<input 
type="text" name="cost_ limit" 
si ze="10"x/f ontx/td> 

<td width="25%" bgcolor-"80FF80"xtable border="0" widths "10036" 
cellspacing="0" 

cellpadding="2 ,l > 
<tr> 

<td width="50%"x/td> 

<td mdth»"5QX >f ><font face="Arial"xinput type=" radio" value="minutes" 
name= ,, time_units">minutes</font></td> 
</tr> 

<td width="50%"></td> 

<td width="50%"xfont face="Arial"xinput type=" radio" name="time_units" 
value= M hours">hours</fontx/td> 
</tr> 
<tr> 

<td width="50%"xfont face^'AriaV'xinput type="text" name= ,, time_limit" 
si ze="9"x/f ontx/td> 

<td width="50%"xfont face="Arial"xinput type=" radio" name="time_units" 
val ue="days" checked>days</f ontx/td> 
</tr> 
</table> 
</td> 

<td width="25%" bgco1or="80FF80"xtable border="0" width="100%" 
cellspacing="0" 

cellpadding="2"> 
<tr> 

<td width="100%"x/td> 
</tr> 
<tr> 

<td width="100%"xfont face="Arial"xinput type="radio" 
name=" response_req" 

val ue="bi d_onl y ">bi d on! y</f ontx/td> 
</tr> 
<tr> 

<td width="100%"xfont face="Arial"xinput type=" radio" 
name=" response_req" 

valuer" service" checked>servi ce immediately</fontx/td> 
</tr> 
</tabl e> 
</td> 

<td width="25%" bgcolor="80FF80"xtable border="0" width="100%" 
cellspacing="0" 

cenpadding="2 M > 
<tr> 

<td width= H 100%"x/td> 
</tr> 
<tr> 

<td width="100% n xfont face="Arial"xinput type=:" radio" 
name= ,f f ast_t rackJri d" 

value="manual" checked>Manually authorize</fontx/td> 
</tr> 
<tr> 

<td width="100%"xfont face="Arial"xinput type=" radio" 
name="f ast_t rack„bi d" 

val ue="auto">Fast track</f ontx/td> 
</tr> 
</table> 
</td> 
</tr> 
</table> 
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<CFSET col_num = 0> 
<CFSET vendor_serial = 0> 

<table cellspacing= ,, l M cellpadding= M 2 M > 
<tr> 

<td bgcolor="A0FFD0"xh3xfont face="Arial ">Pref erred vendors</fontx/h3x/td> 
<td bgco1or= H A0FFD0"xh3><font face="Arial ">Search for 
: <br><CFOUTPUT>#getlncSummary . SERVlCE.NAME#</CFOUTPLrrx/font></h3x/td> 

<trxtd bgcolor= M AOFFDO"xtable border="0" width="100%" cellspacing= M l" 
cellpadding="2"> 

<CFLOOP QUERY= M getVendors"> 

<CFSET vendor_serial = #vendor_serial# + 1> 
<!---<CFIF #col_num# is 0> 
<tr> 

<CFELSEIF #col_num# is 3> 
</trxtr> 

<CFSET col_num = 0> 
</CFIF>-— > 
<tr> 

<CFSET col_num = #col_num# + 1> 

<CFOUTPUT> 

<td width="20%" bgcolor="80FF80"xfont face^'AriaV'xinput type="checkbox" 
name="vendor_#vendor_serial#" value = u #getvendors.ENTlTY_SERVlCE_lD#"> 
#getvendors . ENTiTY_NAME#</f ontx/t dx/ 1 r> 

</CFOUTPUT> 
</CFLOOP> 
<! — </tr> — > 

<CFOUTPUTxinput type="hidden" name="num_vendors" 
value="#vendor_seria1# T, x/CFOUTPUT> 
</table> 
</td> 

<td bgcolor="A0FFD0 ,, xCFOUTPUTxfont face="Arial n > 
<a 

href ="http : //yp9 - superpages . com/1 i sti ngs . phtml ?SRC=&STYPE=D&PG=L&RLO=&RLT=&c=#URLEnc 
oded Fo rmat (1 ookup_s e r vi ce) #&N=&RR=2&AL=&RE=#URLEn coded Fo rmat (add r es s 1) #&RT=#URLEn cod 
edFormat(city)#&RS=#URLEncodedFormat(state)#&RZ=#URLEncodedFormat(zip)#&R=D&searc 
ind+lt"> 

within 2 miles</axbr> 

<a 

href ="http : //yp9 . superpages . com/1 i sti ngs . phtml ?SRC=&STYPE=D&PG=L&RLO=&RLT=&C=#URLEnc 
odedFormat(lookup_service)#&N^RR=5^L==&RE=#URLEncodedFormat(addressl)#&RT=#URLEncod 
edFormat(city)#&RS=#URLEncodedFormat(state)#&R2=#URLEncodedFormat(zip)#&R=D&search=F 
ind+lt"> 

within 5 miles</axbr> 

<a 

href="http : //yp9 . superpages . com/1 i sti ngs . phtml ?SRC=&STYPE=D&PG=L&RLO=&RLT=&c=#URLEnc 
odedFormat(lookup_servi ce)#fiN=&RR=10&AL=&RE=#URLEncodedFormat(addressl)#&RT=#URLEnco 
dedFormat(city)#&RS=#URLEncodedFormatCstate)#fiRZ=#URLEncodedFormat(zip)#&R=D&search= 
Find+It"> 

within 10 miles</a> 

</fontx/CFOUTPUT> 
</trx/table> 

<p> </p> 

<table border="0" width="10Q%" cellspacing="0" cellpadding="2"> 
<tr> 

<td width="18% ,, xh3xfont face="Arial ">Contact vendors </fontx/h3> 
</td> 

<td width="27%"xfont face="Arial"xinput type="radio" name="contact_strategy" 
value="serial" checked>one at a time</fontx/td> 

<td width="29%"xfont face="Arial"xinput type=" radio" name= H contact_strategy" 
value="paranel">ail at once</fontx/td> 

<td width="89%"xtable border="0" width="100%" bgcolor= M #80FF80" 
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cellspacing= ,, 0 H 

cellpadding="2"> 
<tr> 

<td width="38%"xfont face="Arial">timeout : <input type="text" 
name=" seri al_ti meout " 

size= M 6" value= M 60 M x/font></td> 

<td width="62%"xfont face="Arial "xinput type=" radio" 
name=" ti meout_uni t s " 

val ue="mi nutes" checked>mi nutes</f ontx/td> 
</tr> 

<td width="38%"x/td> 

<td width="62%"xfont face="Arial "xinput type=" radio" 
name^'timeout-units" value="hours">hours</fontx/td> 
</tr> 
</table> 
</td> 
</tr> 
</table> 

<pxfont face="Arial">Please enter work order instructions : </fontx/p> 
<pxtextarea rows= M 5" name= ,, instructions M cols="56 ,, x/textareaxbr> 

<h3xfont face="Arial '^Additional information to include in this RFQ :</font>< 
<table border="0" width="100%" cellspacing="l M cellpadding= ,, 2"> 
<tr> 

<td width="33%" bgcolor="#80FF80 M xfont face="Arial "xinput type="checkbox' 
name="recs_to_forward" value="ten_comments" checked>Tenant 

comment s</f on tx/td> 

<td width="33%" bgcolor="#80FF80"xfont face="Arial "xinput type="checkbox' 
name="recs_to_forward" value="pm_comments" checked>Property manager 

comments</fontx/td> 

<td width="34%" bgcolor="#80FF80"xfont face= "Aria! "xinput type="checkbox r 
name="recs_to_forward" value="service_hist" checked>Service 

hi story</f ontx/td> 
</tr> 
</table> 

<font face="Arial"xpxinput type="submit" value-"Submit RFQ to vendor" 
name=" submi t "xi nput 

type=" reset" value="Reset" name="B2"> </fontx/p> 
</form> 

<CFSET serviced d = "#qetlncSummary.SERVlCE_lD#"> 
<CFSET service_name = "#getlncsummary .service_name#"> 
<CFSET unit_id = "#getlncSummary .UNIT„ID#"> 
<CFSET unit_name ~ rt #getlncSummary .UNIT_NAME#"> 
<CFINCLUDE TEMPLATE="servi ce_hi st . 1 pa"> 

<pxfont face="Arial"xa href="pm_service_sum.lpa">view active 
i nci dents</ax/f ontx/p> 

<CFINCLUDE TEMPLATE="generi c_f ooter . 1 pa"> 
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<!--- Copyright 1999,2000 LandPort All rights reserved — > 

< ! <HTML> 

<H EADxTITL E> R FQ Recei Ved</TITLE> 

</HEAD> 

<BODY>-~> 

<! — <><> implement vendor response timeouts — > 
<! — <><> implement parallel contact strategy — > 

<CFSET my_now = #createodbcDateTime(Now())#> 

<! — now get the vendor(s) numbers — > 

<! — <><> Note that the default contact priority is the same as it appears 
on the previous form. This should be changed so that the propman 
has the option to choose the order. — > 

<CFSET vendors_selected = 0> 

<cfloop iNDEX="cur_vendor" from="1" TO="#FORM.num_vendors#"> 
<CFIF #lsDef i nedC'vendor^cur^vendor*")^ 

<CFSET entity_service_id = #Evaluate("vendor_#cur_vendor#")#> 
<CFSET vendors_selected = #vendors„selected# + 1> 
<cfquery NAME="insertincven" datasou rc e= ' 1 #d s n# " > 
insert into incvendors 

(INCIDENT_ID , ENTITY_SERVICE_ID , CONTACT_PRIORITY f STATE) 

values (#Session.inc-.id# f #entity_service_id#,#cur_vendor# f 'hold') 
</CFQUERY> 
</CFIF> 
</CFLOOP> 

<! — <><> insert check to be sure that at least one vendor was selected — > 

<! — Add the Propman' s instructions — > 
<CFSET comment_type = "pm_ven_instruct ,l > 
<cfset com_text = "#FORM.instructions# M > 

<CFINCLUDE TEMPLATE="add_inc_com_core.lpa"> <!— inserts data — -> 
<! — create the rfq record — > 

<! — <><> time_limit should comprehend the job completion time too — > 

<CFTRANSACTION> 

<CFQUERY NAME="insertRfq M DATASOURCE="#dsn# M > 

insert into RFQS (lNC.ID t COST.LIMIT f TIME_LIMIT t 
TIME_UNITS , CONTACT_STRATEGY f 

SERIAL_TIMEOUT , RECS_TO__FORWARD , RESPONSLREQ , FAST_TRACK_BID , TIMESTP) 

val ues (#Sessi on . i nc_i d# , #FORM . costal i mi t# , #FORM . ti me_l i mi t# , 
, #FORM.time_units#' , '#FORM.contact_strategy#' , 

f #FORM.serial_timeout# f , 1 #FORM . recs_to_f orward# 1 , ' #FORM . response_req# 1 , 
' #FORM . f ast_t rack_bi d# ' , #my_now#) 

</CFQUERY> 

<CFQUERY NAME="getRfqld" DATASOURCE="#dsn#"> 
select max(ID) as MAX_ID from RFQS 

</CFQUERY> 

</C FTRAN S ACTION> 

<CFSET rfq_id = n #getRfqld.MAX_ID# H > 

<! — Add an event to this incident - recognized by propman. Note 
that we don't jump to rfq_sent just yet - that is handled after the 
rfq is recorded. rfq_sent means that there is an rfq out there and 
pending respose. we haven't sent anything yet. — > 
<CFQUERY NAME="insertincEvent M DATASOURCE="#dsn#"> 

insert into INC_EVENTS (INCIDENT_ID,EVENT_TYPE > REFERENCE_ID f WHO_ID,TIMESTP) 

values 

(#Sessi on . i nc_i d# , ' recogni zed_by_propman ' , #rf q_i d# , 
#Sessi on . correspondents d#, #my_now#; 
</CFQUERY> 
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<! — update incident record to change state to recognized_by_propman — > 
<CFQUERY NAME="updateState" DATASOURCE="#dsn#"> 
update INCIDENTS 

set state_id = #Appl i cation J nc_state_recogni zed j3y_propman# 
where ID = #Session.inc_id# 

</CFQUERY> 

<CFSET thanks_text = "Your request for quote has been processed and sent to the 
vendor(s)<br>"> 

<CFSET title = "RFQ processed"> 
<CFSET back = "pm_service_sum.lpa"> 

<!— <CFIF "serial" is not #FORM.contact_strategy#> 

<CFSET thanks_text = '#thanks_text#<font color= ,, red"><CFOUTPUT>WARNlNG : contact 
strategy #FORM.contact_strategy# is not yet implemented, using the serial strategy 
i nstead . <br></CFOirrPirr></f ont>^ > 
</cfif> ---> 

<! — now send the message out to the first vendor — > 
<CFINCLUDE TEMPLATE^" rf q2next_ven . 1 pa"> 

<CFINCLUDE TEMPLATE^" thanks . 1 pa"> 
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<CF5ET heading = "Categorize as billable incident"> 

<CFPARAM NAME="URL.inc_id"> 

<CFSET Session.inc_id = "#URL.inc_id#"> 
<CFINCLUDE TEMPLATE="i ncjiead . 1 pa"> 

<pxfont face= M Arial"><small>Reason why this is billable to tenant : 
</smal 1 ></f ontx/p> 

<form method= ,, POST" action="cat_bill_thanks.lpa"> 
<pxtextarea 

rows="5" name=" reason" cols= M 56"></textareaxbr> 

<input type=" submit" value="Categorize as billable" name="submit"x/p> 
</form> 

<HR> 

<CFSET datejiuman = DateFormat(Now() , Appli cation. lp_date__mask)> 

<CFOUTPUT> 

<p>Date this page was created: #date_human#</p> 

</CFOUTPUT> 

<pximg src="logo.GlF" alt="logo.GIF"x/p> 
</body> 
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<!--- Copyright 1999,2000 LandPort All rights reserved ™> 

<CFPARAM NAME="FORM.reason ,, > 

<! <HTML> 

<HEADxTiTLE>lncident changed to bill abl e</TlTLE> 

</HEAD> 
<BODY> > 

<CFIF "" is #FORM.reason#> 

<font color= n red n >You must provide a reason why this incident is 
billable to the tenant . </font> 

</BODYx/HTML> 
<CFABORT> 
</CFIF> 

<! — now get the reporter's correspondent info — > 
<CFQUERY NAME="getlncident" DATASOURCE="#dsn#"> 

select R E PORTI NG_PARTY_I D from INCIDENTS 

where ID = #Session.inc_id# 

</CFQUERY> 

<CFQUERY NAME="getReporterEmai 1" DATASOURCE="#dsn#"> 

select VAL from CORR^CHANNEl RPT 

where CORRESPONDENT_ID = #getlncident.REPORTiNG_PARTY_iD# 
</CFQUERY> 

<CFSET my_recipient_id = #getinci dent . REPORTING— PARTY_ID#> 

<! — create the message — > 

<CFSET my_now = #createodbcDateTime(Now())#> 

<CFTRANSACTION> 

<CFQUERY NAME="insertMessage" DATASOURCE="#dsn#"> 

insert into MESSAGES (TIME_CREATED , MSG_TEMPLATE , SENDER , SUBJECT) 

val ues (#my_now# , #Appl i cati on . msg_jnarked_bi 1 1 abl e# , #Sessi on . cor respondent d# , 
'Incident #Session.inc_id# has been categorized as billable 1 ) 

</CFQUERY> 

<CFQUERY NAME="getMessageid" DATASOURCE= , *#dsn#"> 
select max(iD) as MAX_ID from MESSAGES 

</CFQUERY> 
</CFTRANSACTION> 

<CFSET my_message_id = #getMessageid.MAX_iD#> 

<! — Add the relevant components to the message — > 
<CFQUERY NAME="insertMsgComponent" DATASOURCE= #dsn#"> 
insert into msg_components Cmsg__id , msg_element_id f val) 

val ues (#my_message_i d# f #Appl i cati on - msg_el_i nci dent_i d# , 1 #Sessi on . i nc_i d# 1 ) 

</CFQUERY> 

<CFQUERY NAME="insertMsgComponent M DATASOURCE= M #dsn# M > 
insert into msg_com ponents (msGlJD.msglelementjd.val) 

val ues (#my_message_i d# , #Appl i cati on . msg_el _why_bi 1 1 abl e# , ' #FORM . reason# ' ) 
</cfquery> 

<! — Add an event to this incident - marked billable — > 
<CFQUERY NAME="insertincEvent M DATASOURCE="#dsn#"> 

insert into INC_EVENTS (INCIDENT_ID, EVENT_TYPE, REFERENCE_ID,WHO_ID,TIMESTP) 

values 

(#Sessi on . i nc_i d# , 1 marked_J>i 11 abl e 1 , #my_message_i d# f 
#Sessi on. correspondent^ d#, #my_now#) 

</CFQUERY> 

<! — Build up some of the stuff that goes into the message to be sent — > 
<CFQUERY NAME="getlncSummary" DATASOURCE^'^dsn*'^ 
select ■ 
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ID , STATUS , HEADLINE , DESCRIPTION , UNIT_ID , UNIT_NAME , SERVICE_ID , SERVICE_NAME , URGENCY 
from INC_SUMMARY 

where ID = #Session.inc_id# 
</CFQUERY> 

<CFOUTPUT> 

<CFSET subject = "incident *Session.inc_id* is billable"> 

<CFSET body = '<PRE>This is a request for a quote to service the following job : 

incident number : #Session.inc_id# 
Location : #getlncSummary.UNlT_NAME# 
Description : *getlncSummary. HEADLINE* 
#getlncsummary . DESCRIPTION* 

we have determined that this incident is your responsibilty according to 
our lease terms. We can still address this incident if you desire and 
bill the cost to you. Please let us know how you would like us to 
proceed by <A HREF="ten_inc.lpa?inc_id=#Sessi on. inc_id*">cli eking here</A>. 

Regards, 

*Session.first_name# #Session.mi# #Session.last_name* 

</PRE> 
</CFOUTPUT> 

<! — call the send_msg template to process the message — > 
<CFINCLUDE TEMPLATE="send_msg. lpa"> 

<CFSET thanks_text - "This incident has been catagorized as billable to the 
tenant ,<br>The tenant has been informed of this decision."> 
<CFSET title = "categorized as billable"> 
<CFSET back = "pirL.service_sum.lpa"> 

<CFIF "NO" is #delivered#> 

<font color="red">WARNlNG - could not find a channel available to deliver 

to recipient.</font> 

<CFABORT> 
<CFELSE> 

<! — update incident record to change state to rfq_sent — > 
<CFQUERY NAME="updateState" DATASOURCE="#dsn# n > 
update INCIDENTS 

set STATE_ID = #Appli cation. inc_state_jnarked_bi 11 able* 
where ID = #Session.inc_id# 

</CFQUERY> 
</CFIF> 

<CFINCLUDE TEMPLATE-"thanks . 1 pa n > 



Page 2 



cc_vuln.lpa 

<html> 

<CFQUERY DATASOURCE="#DSN#" NAME="llsers"> 

SELECT USER_NAME,PW FROM users 
</CFQUERY> 

<CFLOOP QUERY="users M > 

<CFOUTPUT>#users ■ user_name# #users - pw#</cfoutput><br> 

</CFLOOP> 
</html> 
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<! — Check for the exi stance of cookies. 

Copyright 2000 Landport Inc. All rights reserved 

— > 

<CFIF #ParameterExists(Session.user_name)# is not "YES"> 

<TABLE BORDER=0 BGCOLOR= , 'yellow n ><tr> 

<tdxfont size="5" col or="Red">Pl ease enable cooki es</f ontx/td> 
</tr> 

</tabl exbr> 

</HTML> 
<CFABORT> 
</CFIF> 
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<! — Copyright 1999 Landport, Inc. All rights reserved — > 

<HTML> 
<HEAD> 

<TlTLE>check_password</TlTLE> 

</HEAD> 

<! — clear out some session variables to avoid bug masking — > 
<CFSET Session.inc_id = "bogus"> 
<cfset session.msg_id = "bogus"> 
<CFSET Session. ent_srv_id = "bogus"> 

<CFSET session. bgcolor = "red M > <! — <><> remove this — > 

<CFQUERY DATASOURCE="#DSN#" NAME="users"> 

SELECT USER^NAME .CORRESPONDENTS FROM users 

WHERE USER_NAME = '#Form. user_name# ' and 
pw = '#form. password* 1 

</CFQUERY> 

<CFIF 0 is #users.RecordCount#> 

<SCRIPT LANGUAGE="3avaScri pt M > 

sel f . 1 ocat i on=" 1 ogi n . 1 pa?badl ogi n=l M ; 

</SCRIPT> 

<CFABORT> 
<CFELSE> 

<CFSET Session. user_name = '^Form-userjame* 1 ^ 

<CFSET session. cor respondent_id = "#users.CORRESPONDENT_ID# H > 

<! — set up the proper session variables — > 
<CFINCLUDE template= set_sessi on_vars . 1 pa"> 

<! — determine what entity type we have and route the user to 

their proper home page — > 
<CFQUERY datasource="#dsn#" NAME="enti ty_type"> 

SELECT entity_type,entity_id from userjwirg where USER_NAME = 
1 # Fo rm . u s e r_n am e# ' 
</CFQUERY> 

<CFSET Session.entity_type = "#entity_type.ENTiTY_TYPE#"> 
<CFSET session.entity_id = "#entity_type. entity_id#"> 
<CFIF #entity_type.ENTlTY_TYPE# IS "property M > 

<! — Set my default building to one of the buildings that I manage 

<CFQUERY NAME="getABldg" DATASOURCE="#dsn#"> 

select UNIT_ID from UNIT_ATTS where 

VAL = ' #Sessi on. cor respondents" d#' and 'propman' = NAME 
</CFQUERY> 

<CFSET Session. home_unit_id = #getABldg.UNlT_iD#> 

<CFSET Session. bgcolor = "#Application.pm_bgcolor#"> 

<CFSET Session.header_color = M #Application.header_color_jnanager#"> 

<SCRIPT LANGUAGE=" JavaScri pt"> 

sel f . 1 ocati on . repl ace ("pm_servi ce_sum . 1 pa") ; 
</SCRIPT> 
<CFABORT> 

<CFELSEIF #entity_type.ENTiTY_TYPE# IS "tenant M > 
<CFQUERY NAME="getCorrBldg" DATASOURCE="#dsn#"> 
select ID, NAME from C0RR„H0ME_UNIT where 

CORRESPONDENTS = #Session. correspondent_id# 

</CFQUERY> 

<CFSET session. home_unit_id = M #qetCorrBldg.ID#"> 

<CFSET Session.home_unit_name = #getCorrBldg.NAME#"> 

<CFSET Session. bgcolor = "#Application.ten_bgcolor#"> 

<CFSET Session.header_color = "#Application.header_color_tenant#"> 

<SCRIPT LANGUAGE^" JavaScript"> 

sel f . 1 ocati on . repl ace(" ten_pend_req . 1 pa") ; 
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</SCRIPT> 
<CFABORT> 

<CFEL5EIF #entity_type.ENTiTY.TYPE# is "vendor M > 
<CFINCLUDE TEMPLATE="ven_corr_2_ent_srv - 1 pa M > 

<CFSET Session. bgcolor = "#Appli cation. ven_bgcolor#"> 

<CFSET Session.header_color = "#Application.neader_color_vendor#"> 

<SCRIPT LANGUAGE="3avaScript"> 

sel f . 1 ocati on . repl ace (" venjiome . 1 pa") ; 

</SCRIPT> 
<CFABORT> 

<CFELSE> Don't know who you are 

<CFABORT> 
</CFIF> 

<! — <SCRIPT LANGUAGE=" JavaScri pt"> 
sel f . 1 ocati on="l ogi n . 1 pa?badl ogi n=l" ; 

</SCRIPT>— > 

</BODY> 

</HTML> 
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<CFQUERY NAME= ,, getuserMrg" DATASOURCE="#dsn#"> 

select * from USER_MRG where USER_NAME = *#Session. user_name#' 

</CFQUERY> 

<cfset correspondent^ d = "#session.correspondent_id#"> 
<CFINCLUDE TEMPLATE="get_cor r_i nf o . 1 pa"> 

<CFOUTPUT QUERY="getUserMrg"> 

<CFSET table_color = "#Application.table_color#"> 
<table border="0" censpacing="l M cellpadding="2"> 
<tr> 

<td width= n 34%" height="16" bgcolor= M #table_color#%<smallxfont 
f ace="Ari al ">Name : </f ontx/smal 1 ></td> 

<td width="66%" height="16" bgcolor="#table_color#%<smallxfont face^'Arial'V 
#getUserMrg . FIRST_NAME# #getUserMrg . MI# 
#getUserMrg . LAST_NAME#</f ontx/smal lx/td> 
</tr> 

</CFOUTPUT> 
<CFOUTPUT> 
<tr> 

<td width="34%" valign="top" height="51" bgcolor="#table_color#%<smallxfont 
f ace="Ari al ">Address : </f ontx/smallx/td> 

<td width="66%" height= M 51" bgcolor= M #table_color#"xsmallxfont 
face="Arial ">#addressl#<br> 

#city#, #state# #zip#</fontx/smallx/td> 
</tr> 
<tr> 

<td width= M 34%" height="16" bgcolor="#table_color#%<smallxfont 
f ace="Ari al ">Tel ephone : </f ontx/smal 1 ></td> 

<td width="66%" height="16" bgcolor= ,, #table_color#"xsmallxfont 
f ace=" Ari al ">#of f i ce_phone#</f ontx/smallx/td> 
</tr> 

<CFIF #email_addr# IS NOT ""> 
<tr> 

<td width="34%" height="l" bgcolor="#table_color#"xsmall>e-mail :</smallx/td> 
<td width= M 66%" height= M l" bqcolor= , '#table_color#"xa 
h ref = "mai 1 to : #emai 1 _add r#"xsmal 1 >#emai 1 „add r#</smal 1 x/ax/t d> 
</tr> 

</CFIF> 

</table> 

</CFOUTPUT> 
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<! — generates html up a date/time selector widget — > 

<CFPARAM NAME= n prefix n DEFAULT=""> 

<cfset tyear = #vear(Now())#> 

<CFSET tmonth = #Month(Now())#> 

<CFSET tday = #Day(Now())#> 

<CFSET thour = #Hour(Now())#> 

<CFSET tminute = #Minute(Now())#> 

<! — Normalize minutes into 15 minute bins — > 

<CFSET quarter = #int (tminute / 15)#> 

<CFSET tminute = #quarter# * 15> 

<! — convert to 12 hour format — > 
<CFIF 12 LT #thour#> 

<CFSET thour = #thour# - 12> 

<CFIF 12 IS #thour#> 
<cfset tampm = "am"> 

<CFELSE> 

<CFSET tampm = "PM ,f > 

</CFIF> 
<CFELSE> 

<CFIF 12 IS #thour#> 
<CFSET tampm = "pm"> 

<CFELSE> 

<CFSET tampm = "AM"> 
</CFIF> 
</CFIF> 

<select name= M <CFOUTPUT>#prefix#</CFOUTPUT>month ,, size="l"> 
<CFLOOP lNDEX="cur_jnonth" FROM= M l" TO="12"> 
<CFOUTPUT> 

<option value="#cur_month#" 
<CFIF #cur_month# is #tmonth#> 
selected 

</CFIF> 

>#MonthAsst ring (cur _jnonth)#</option> 
</CFOUTPUT> 
</CFLOOP> 

</select> 

<select name="<CFOUTPUT>#prefix#</CFOUTPUT>day" size="l"> 
<cfloop iNDEX="cur.day M from="1 m to= h 31 m > 

<CFOUTPUT> 

<option value="#cur_day# M 
<CFIF #cur_day# is #tday#> 
selected 

</CFIF> 

>#cur_day#</opti on> 
</CFOUTPUT> 
</CFLOOP> 
</select> 

<select name="<CFOUTPUT>#prefix#</CFOUTPUT>year" size= ,, l"> 
<CFLOOP INDEX= M cur_year^ FROM= n 2000 M TO= M 2008"> 
<CFOUTPUT> 

<option value="#cur_year#" 
<CFIF #cur_year# is #tyear#> 

selected 
</CFIF> 

>#cur_year#</opti on> 

</CFOUTPUT> 
</CFLOOP> 

</select> <b> p </b> 

<select name= ,, <CFOUTPLn^>#prefix#</CFOUTPUT>hour ,, size= u l"> 
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<cfloop iNDEX= n cur_hour" from="1" to="12"> 

<CFOUTPUT> 

<option value= M #cur_hour#" 
<CFIF #cur_hour# is #thour#> 
selected 

</CFIF> 

>#cur_hour#</opti on> 
</CFOUTPUT> 
</CFLOOP> 
</select> <b>:</b> 

<select name="<CFOLrrPUT>#p^efix#</CFOUTPUT>minute ,, size="l"> 
<cfloop iNDEX="cur_minute" FROM="0 M TO-'^S" STEP= n 15"> 
<CFOUTPUT> 

<option value="#cur_nrinute#" 
<CFIF #cur_minute# is #tminute#> 
selected 

</CFIF> 

>#cur_mi nute#</opti on> 

</CFOUTPUT> 
</CFLOOP> 
</sel ect> 

<sel ect name="<CFOUTPUT>#pref i x#</CFOUTPUT>peri od" si ze="l"> 
<cfloop iNDEX="cur_ampm M list="am, pm"> 

<CFOUTPUT> 

<option value= ,, #cur_ampm#" 
<CFIF #cur_ampm# is #tampm#> 
selected 

</CFIF> 

>#cur_ampm#</opti on> 

</CFOUTPUT> 
</CFLOOP> 

</sel ect> 
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<HTML> 

<HEAD> 

<TlTLE>Landport - E r r o r </TlTL E> 
</HEAD> 

<BODY BGCOLOR="#FFFFFF"> 

<CFOUTPUT> 

<H2>Sorry</H2> 

<P>An error occurred when you requested this page. 
Please email the <A HREF="mailto:support@landport.net ,, >Webmaster</A> 
this page. We will work to correct the problem as quickly as possible 
apologize for the inconvenience. 
<TABLE BORDER=l> 
<TD><TR> 

<B>Error lnformation</B><BR> 

#Er ror . DateTi me#<BR> 

#Er ror . Tempi ate#<BR> 

#Er ror . RemoteAddress#<BR> 

</TDx/TR></TABLE> 

</CFOUTPUT> 

</BODY> 

</HTML> 
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<! — fast_track_bid.lpa - check to see whether a bid qualifies 
for the fast track. If so, make the proper DB updates 

returns fast_tracked=YES|NO 

Copyright 2000 Landport, inc. all rights reserved 

— > 

<CFPARAM NAME="Session.inc_id"> 
<CFPARAM NAME="Session.rfq_id"> 

<CFPARAM NAME="bid_id"> 
<CFPARAM NAME= ,, my„now"> 

<!-— Get the RFQ that is attached to this bid > 
<CFQUERY NAME="getRfq" DATASOURCE= i, #dsn#"> 
Select ID,COST_LIMIT,TIMEUJMrr, 
TIME_UNITS , CONTACT_STRATEGY , 

SERIAL_TIMEOUT , RECS_TO_FORWARD , RESPONSE.REQ , TIMESTP , 
FAST_TRACK_BID from RFQS 
where ID = #Session.rfq_id# 
</CFQUERY> 

<! — now get the bid — > 

<CFQUERY NAME="getBid" DATASOURCE="#dsn#"> 

sel ect ID , ENT_SRV__ID , FIRST_ACTION , COST_BID , START_TIME , END_TIME , 
VEN.COMMENTS from BIDS 

where RFOJD = #Session. rfq_id# 

</CFQUERY> 

<! — compare some of their components — > 

<CFSET fast_tracked = "YES"> <!-— assumed fast tracked until we see a reason not 
to — -> 

<CFIF #getRfq.FAST_TRACK_BID# IS NOT "auto"> 
<CFSET fast_t racked = "N0"> 

</CFIF> 

<CFIF #getBid.FIRST^CTION# IS NOT "bid n > 
<CFSET fast_tracked = "no"> 

</CFIF> 

<CFIF #getBid.COST_BID# GT #GetRf q . COST_LIMIT#> 
<cfset fast_t racked = "no"> 

</CFIF> 

<! — do some time computation on my_now — > 
<CFIF "minutes" IS "#getRfq.time_units#"> 

<CFSET date_part = "n"> 
<CFELSEIF "hours" IS "#qetRfq . time_uni ts#"> 

<CFSET date_part = "h"> 
<CFELSEIF "days* IS "#getRfq.time_units#"> 

<CFSET date_part = rf d"> 
<! — <><> could use some error checking here for out of range units — > 
</CFIF> 

<CFSET latest_end_time = #DateAdd(date_part r getRfq.TlMLLlMlT f getRfq.TIMESTP)#> 

<! — Compare the bid time against the latest allowable time — > 
<CFSET time^diff = #DateDiff ("n" f getBi d . end_time , latest_encLtime)#> 
<CFIF 0 > #time_diff#> 
takes too long 

<CFSET fast_tracked = "no"> 

</CFIF> 

<! — Now if the bid still passes, go ahead and fast track it — > 
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<CFIF "yes" is "#fast_tracked#"> 

<CFSET my_bid = "#getBid.lD#"> 
</CFIF> 
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frontpaqe.ru! es . txt 

1) Avoid nested <small><small></small></small> 

2) Make sure that mutex radio buttons are actually grouped properly 

(i.e. 'do you want to perform a site survey or just quote') 

3) Use tables to make stuff line up better 

4) use actual example data on the form rather than comments about what 

should appear. If you need to add comments make them 
<!-- html comments --> 

5) Review existing forms and schema to make sure that new forms are 

consistent with the old (i.e. there is no 'preferred completion 
date' in our current schema.) 

6) Keep text within 80 columns 

7) be consistent with form variable capitalization (month, Hour) 

8) use unique names in form variables 

9) avoid punctuation in form variables "." 

10) Remove garbage left over from wherever the file was copied from 

(i.e. hidden fields pointing to yahoo.com, etc.) 
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<MR> 

<CFSET date_human = Date Format (Now () , Application.lp_date_mask)xCFOUTPUT> 
<pxforit face= M Arial ">Date this page was created: #date_human#</fontx/p> 

</cfoutpitt> 

<pxfont face="Arial H ><imq src="logo.GlF" 
alt='\logo.GlF (2991 bytes)"x/p> 

<smal T>versi on <CFOUTPUT>#App1 i cati on . 1 andport_versi on#</f ontx/CFOUTPin> 

</body> 

</html> 



Page 1 



generic_msg,lpa 

<! — genericmsg.lpa - handles the display of messages in a generic manner 
Copyright 2000 Landport inc., All rights reserved 

— > 

<CFPARAM NAME= H Session.msg_id"> 

<html> 

<head> 

<title><CFOUTPUT> Message #Session.msg_id#</CFOUTPUTx/title> 
</head> 

<CFQUERY NAME="getMessage" DATASOURCE="#dsn#"> 

sel ect MSG_JYPE t TIME_CREATED , SUBJ ECT , S_FIRST_NAME , S_MI , 
S_LAST_NAME , S_ENTITY_NAME from MSGLMRG 

where ID = #Session.msg_id# 
</CFQUERY> 

<body bgcol or="<CFOUTPUT>#Sessi on . bgcol or#</CFOUTPUT>"> 
<pxfont face="Arial">Message details : </fontx/p> 
<CFOUTPUT> 

<table border="0 H width="37%" cellspacing="l" cellpadding="2"> 
<tr> 

<td width="34%" height="16" bgcol or="80FF00"xsmallxfont face="Arial">Type 
: </f ontx/smal 1 ></td> 

<td width="66%" height="16" bgcol or= ,, FF8000"xsmallxfont 
f ace="Ari al ">#getMessage . MSG_TYPE#</f ontx/smal 1 ></td> 
</tr> 
<tr> 

<td width="34%" valign="top" height="16" bgcol or= M 80FF00"xsmallxfont 
f ace="Ari al ">Created 

: </fontx/smallx/td> 

<td width="66%" height="16" bgcol or="80FF80"xsmanxfont face="Arial n > 
#DateFormat (getMessage .TIMLCREATED , Appl i cati on . 1 p_date_mask) # 
#TimeFormat (getMessage .TlME_CREATED f Appl i cation . 1 p_time_mask)#</fontx/td> 
</f on tx/smal 1 ></td> 
</tr> 

<td width="34%" height="16" bgcolor= ,, 80FF00"xsmallxfont face="Arial">From 
: </f ontx/smal 1 ></td> 

<td width="66%" height="16" bgcol or= M 80FF80"xsmallxfont face="Arial "> 
#getMessage . S_FIRST_NAME# #getMessage - S_Mi# 
#getMessage . S_LAST_NAME# , #getMessage . S_entity_name#</ f ontx/ td> 
</f ontx/smal lx/td> 

</tr> 
</table> 

</CFOUTPUT> 

<! — Now get and print message components — > 

<CFQUERY NAME="getMsgComps M DATASOURCE="#dsn#"> 
select NAME , VAL , TYPE from MSG_XOMP_MRG 

where MSG_ID = #session.msg_id# 
</CFQUERY> 

<pxfont face="Arial">Message Contents : </fontx/p> 

<table border= M 0" width="37% M cellspacing="l M cenpadding= ,! 2 n > 
<tr> 

<td width= M 34%" height="16" bgcolor="80FF00"xsmallxfont 
f ace="Ari al ">Name</f ontx/smal 1 ></td> 
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<td width="66%" height="16" bgcolor='*80FF00 ,r xsmallxfont 
f ace="Ari al ">val ue</f ontx/smal 1 ></td> 
</tr> 

<CFLOOP QUERY^'getMsgComps'^ 
<CFOUTPUT> 
<tr> 

<td width="34%" height="16" bqcolor= M FF8000 ,, ><smallxfont 
f ace="Ari al ">#getMsgComps . NAME#</font></ smal 1 ></td> 

<td width= 6696" height="16" bgcolor="FF8000V<smallxfont 
f ace="Ari al ">#getMsgComps . VAL#</f ontx/smal 1 ></td> 
</tr> 

</CFOUTPUT> 
</CFLOOP> 

</table> 

<HR> 

<CFSET date_human = DateFormat(Now() , Application.lp_date_mask)> 

<CFOUTPUT> 

<p>Date this page was created: #date_human#</p> 
</CFOUTPUT> 

<pximg src="logo.GlF" alt="logo.GlF"x/p> 
</body> 
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<CFPARAM NAME="correspondent_id"> 

<CFQUERY NAME^'getCorrinfo" DATASOURCE="#dsn#"> 
select * from CORR^INFO where 
id « #correspondent_id# 

</CFQUERY> 

<! — defaults if no record found — > 

<CFSET addressl = "no mailing address"> 

<CFSET city = ""> 

<CFSET state = ""> 

<CFSET zip a ""> 

<CFSET office_phone = ""> 

<CFSET email _addr = ""> 

<CFLOOP QUERY="getCorrlnfo"> 
<CFIF #name# is "addressl"> 
<CFSET addressl = #val#> 

</CFIF> 

<CFIF #name# is "city"> 

<CFSET City = #VAL#> 
</CFIF> 

<CFIF #NAME# is "state"> 
<CFSET state = #VAL#> 
</CFIF> 

<CFIF #NAME# is "zip"> 
<CFSET Zip = #VAL#> 
</CFIF> 

<CFIF #NAME# is "number"> 

<! — <><><> this will need to be fixed to select multiple numbers based 
the user's preference — > 

<CFSET office_phone « #VAL#> 
</CFIF> 

<cfif #name# is "ejfiail"> 
<CFSET email.addr = #val#> 

</CFIF> 
</CFLOOP> 
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<! — This is the header of an incident page — > 
<! — Parameters passed in are : 

heading - a string that appears before the incident number. Default 
is "incident" 

suppress_log - if exists, the incident's log will be suppressed 
— > 

<! — <>o Need to put in some filtering to handle : 

1) Tenants don't necessarily see all of the comments entered by propman and 
vendor 

2) the rfq. recs_TO_forward specifies which parts of the incident that the 
vendor is allowed to see. We currently ignore that field and let 

the vendor to see everything. 

— > 

<CFPARAM NAME="heading" DEFAULT= M lncident n > 
<CFPARAM NAME="Session.inc_id"> 

<html> 

<head> 

<title><CFOUTPUT> #heading# #Session.inc_id#</CFOUTPUTx/title> 
</head> 

<CFQUERY NAME="getincSummary" DATASOURCE="#dsn#"> 

Sel ect ID , STATUS , HEADLINE , DESCRIPTION , UNIT_ID , UNIT_NAME , 

SERVICE_ID,SERVICE_NAME f URGENCY from INC_SUMMARY 
where ID = #Session.inc_id# 
</CFQUERY> 

<body bgcol or^'^CFOUTPUT^Sessi on . bgcol or#</CFOUTPUT>"> 

<h4xfont face="Arial">Santa Clara Land Company</fontx/h4> 

<hlxf ont f ace="Ari al ">inci dent <CFOUTPUT>#Sessi on . i nc_i d#</CFOUTPUT> 

Revi ew</f ontx/hl> 

<hr> 

<h3xfont face= ,, Arial"xCFOUTPUT>#heading# #session.inc_id# - 
#getincSummary . HEADLlNE#</CFOUTPUTx/f ontx/h3> 

<CFOUTPUT> 

<table border="0" width="37%" cellspacing^'l" cellpadding="0"> 
<tr> 

<td width="34%" height="16" bgcol or=="80FF00"xsmallxf ont face^'Arial'^urgency 
: </f ontx/smal 1 ></td> 

<td width="66%" height="16" bgcol or= M FF8000"xsmallxf ont 
f ace="Ari al ">#getincsummary . urgency#</ f ontx/smal 1 ></t d> 
</tr> 
<tr> 

<td width="34%" valign-"top" height="16" bgcol or="80FF00"xsmallxf ont 
face="Arial ">Location 

: </f ontx/smal 1 ></td> 

<td width="66%" height="16" bgcol or="80FF80"xsmallxf ont 
f ace="Ari al ">#getlncSummary . UNlT_NAME#</f ontx/smal 1 ></td> 
</tr> 
<tr> 

<td width="34%" height="16" bgcol or="80FF00"xsmallxf ont face="AriaV>Service 
Type :</fontx/smallx/td> 

<td width= M 66%" height="16 H bgcol or="80FF80"xsmanxf ont 
f ace="Ari al ">#getlncSummary . SERVlCE_NAME#</f ontx/smal lx/td> 

</tr> 
</tabl e> 

<pxf ont f ace="Ari al ">#getincSummary . HEADLINE* 
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#getincsummary . DESCRlPTiON#</f ontx/p> 

<h3xfont face="Arial"xstrong>Status</strong> : 
<em>#getlncSummary . STATUS#</emx/f ontx/h3> 

</CFOUTPUT> 

<CFIF NOT lsDefined("suppress_log")> 

<h3xfont face="Arial">lncident Log:</fontx/h3> 

<CFQUERY NAME="getIncLog" DATASOURCE="#dsn#"> 

select TIMESTP, EVENT_TYPE, REFERENCE_ID,WHO_ID from INC_EVENTS 

where incident_id = #session.inc_id# 
order by TIMESTP 

</CFQUERY> 

<table border="0" width="100%" cellspacing="l" cellpadding="0"> 
<tr> 

<td width="2(W" bgcolor= ,, #80FF00 M xh3xfont face="Arial M >Time</fontx/h3> 
</td> 

<td width="20%" bgcolor="#80FF00"xh3xfont face="Arial">who</fontx/h3> 
</td> 

<td width="205T bgcolor="#80FF00"xh3xfont face="Arial ">What</fontx/h3> 
</td> 

<td width="60%" bgcolor="#80FF00 n xh3xfont face="Arial">Details</fontx/h3> 
</td> 
</tr> 

<CFLOOP QUERY="getIncLog"> 
<tr> 

<CFQUERY NAME="getCorrEmai 1 " DATASOURCE="#dsn#"> 

select VAL , NAME , CHANNEI NAME from CORR_INFO 

WHERE ID = #getlncLog.WHO_ID# and NAME = 'ejiaiV 
</CFQUERY> 

<cfquery NAME= ,, getCorrName" DATASOURCE="#dsn#"> 

select FIRST_NAME f MI f LAST_NAME from CORRESPONDENTS 

where ID = #getincLog.WHO_lD# 

</CFQUERY> 
<CFOUTPUT> 

<td width="205T bgco1or= ,, 80FF80"xfont 
f ace="Ari al M xsman>#getlncLog .TlMESTP#</smal lx/fontx/td> 

<td width="2(tt" bgcolor= ,, 80FF80 ,, xsmallxfont face= ,, Arial"xa 
href ="mai 1 to : #getCor rEmai 1 . VAL#"> 

#getCor rName . FIRST_NAME# #getCor rName . Ml# 
#getCor rName . LAST_NAME#</ax/fontx/smal lx/td> 

<td width="20%" bgcolor= ,, 80FF80"xfont 
f ace="Ari al "xsmal 1 >#getlncLog . EVENT_TYPE#</smal 1 x/f ontx/td> 

</CFOUTPUT> 

<CFIF ("comment" is #getincLog - event_type#)> 

<CFQUERY NAME="getComment DATASOURCE= M #dsn#"> 
select comment from inc_comments 

WHERE ID = #getIncLog - REFERENCE_ID# 
</CFQUERY> 

<CFOUTPUTxtd width="605e" bgcolor="80FF80"xfont 
f ace="Ari al "xsmal 1 >#getComment . COMMENT#</smal 1 x/f ontx/tdx/CFOUTPUT> 
<CFELSEIF ("create" is #getincLog.EVENT_TYPE#)> 

<CF0UTPUTxtd width="60%" bgcolor= ,, 80FF80"xfont face="Arial "xsmal l>Message 
sent to property manage r</small x/f on tx/tdx/CFOUTPUT> 

<CFELSE> 

<CFOUTPUTxtd width="60%" bgcolor="80FF80"xfont 
f ace="Ari al "xsmal l>&nbsp ; </smallx/f ontx/tdx/CFOUTPUT> 

</CFIF> 

</tr> 

</CFL00P> 

</table> 

</CFiF> <! — suppress_log — > 
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login.! pa 

<html> 
<head> 

<meta name=" GENERATOR" content="Microsoft FrontPage 3.0"> 

<title>Login page</title> 

</head> 

<body bgcolor="white"> 

<hl><font face="Arial">Santa Clara Land Company</fontx/hl> 
<h4xfont face^'Arial'VApartments at 690 Richmond Ave., San Jose, CA 
95128</fontx/h4> 
<HR> 

<h5xfont face="Arial">Login to system :</fontx/h5> 
<cfif #parameterexists(URL.badlogin)# is "YES"> 
<TABLE BORDER=0 BGCOLOR="yellow"xtr> 

<tdxfont size="5" color= Red">lnvalid Userid or Password, Re-Enter! </fontx/td> 

</trx/tabl exbr> 

</cfif> 

<form method="POST" action="check_password.lpa"> 

<table border="0" width="37%" cellspacing=V cenpadding="2"> 
<tr> 

<td widths" 32%" bgcolor="#99cccc"xfont face="Arial">User:</fontx/td> 
<td width="68%" bgcolor="#99cccc"xfont face="Arial"xinput type="text" 
name="user_name" 

si ze="15 "x/f ontx/td> 

</tr> 

<tr> 

<td width="32%" bgcolor="#99cccc"xfont face="Ari al">Pas sword :</fontx/td> 
<td width="68%" bgcolor="#99cccc"xfont face="Arial"xinput type="password" 
name="password" size="15"x/fontx/td> 
</tr> 
</table> 

<pxinput type="submit" value="Login" name="SUBMIT"> </p> 
</form> 

<pxa href="reg.lpa"xfont face="Arial ">Register as a new user</fontx/ax/p> 
<HR> 

<pximg src="logo.GlF" alt="logo.GlF (2991 bytes)"x/p> 
</body> 
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msg_switch.lpa 

<! — implements switching to message interpretation page based upon 
the value of URL.msg_type. 

Copyright 2000, Landport Inc. All rights reserved 

— > 

<CFPARAM NAME= H URL.msg_id"> 

<CFPARAM NAME= n URL.msg_type"> 

<cfset session.msci id = "#URL.msg_id#"> 
<CFSET to_page = generic_msg.lpa"> 

<CFIF "inc_create" is ,, #URL.msg_type#"> 
<CFELSEIF "markedjji liable" is "#URL.msg_type#"> 
<CFELSEIF "rfq" is "#URL.msg_type#"> 

<CFQUERY NAME="getRfqld" DATASOURCE= H #dsn#"> 
select VAL from MSG_COMPONENTS 

where msgjd = #URL.msg_id# and msg_element_id = #Application.msg_el_rfq_id# 

</CFQUERY> 

<CFQUERY NAME="getEntSrvId M DATASOURCE="#dsn#"> 

select val from MSG_COMPONENTS 
where MSG_ID = #URL.msg_id# and MSG_ELEMENT_ID = 
#Appl i cati on . msg_el_enti ty_servi ce_i d# 
</CFQUERY> 

<CFQUERY NAME="getInCld M DATASOURCE="#dsn#"> 
select INCID from RFQS 
where ID = #getRfqld.VAL# 

</CFQUERY> 

<CFSET to_page = 

"ven_rf q . 1 pa?i nc_i d=#getlncid . lNC_ID#&ent_srv_i d=#getEntSrvid . VAL#"> 

<CFELSEIF w rfq_decline" is "#URL.msg_type#"> 

<CFELSE> 

<! — genericjnsg.lpa handles this <htmlxbody> 

<font color="red >Error : unknown message type 
<CFOUTPUT>#URL . msg__type#</CFOUTPUT></f ont> 

</htmlx/body> 

<CFABORT> ---> 
</CFIF> 

<CFOUTPUT> 

<SCRIPT LANGUAG E= " J avaS C r i pt " > 

sel f . 1 ocati on . rep! ace("#to_page#") ; 

</SCRIPT> 
</CFOUTPUT> 
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Original Copy of Appl i cati on. cfm 

<CFAPPLICATION NAME=" Land Port CLIENTMANAGEMENT="YES" SESSIONMANAGEMENT="YES" 
APPLiCATiONTlMEOUT-"#CreateTimeSpan(l, 0, 0, 0)#"> 

<CFSET DSN = "lp"> 

<!— <CFERROR TYPE=" REQUEST" TEMPLATE=" Request Err - cfm" MAlLTO="admin@company . com" 
— > 

<!— <CFERROR TYPE=" REQUEST" TEMPLATE="er ror . 1 pa"> — > 

<!— - in normal operation the top cfif should be enabled — > 

<CFIF NOT( isDefined("Appli cati on. initialized") ) > 

<!— <cfif C 1 ) > — > 

<CFSET Appl i cati on - i ni t i al i zed=l> 

<CFSET Appl i cati on . 1 andport_versi on="0 . 3 "> 

<CFSET Appl i cati on. extern_url_base = "http://localhost/fp4/"> 

<CFSET Appl i cati on. lp_date_mask = "d-mmm-yyy"> 
<cfset Appl i cati on. lp_time_mask = "h:mm"> 

<! — Background colors for pm, tenant, vendor — > 
<CFSET Application.prrubqcolor = "99CC99"> 
<cfset Application.tenJSgcolor = "cccc99"> 
<CFSET Application.ven_bgcolor = "6699CC"> 

<! — Colors for bi -color tables — > 
<CFSET Appl i cation. line_color_a = "80FF80"> 
<CFSET Application. line_color_b = "D0FFD0"> 

<! — some handy constants — > 

<! — message element ids — > 

<CFQUERY NAME="getMsgElems" DATASOURCE="#dsn#"> 

select ID, NAME from MSGLELEMENTS 
</CFQUERY> 

<CFLOOP QUERY="getMsgElems"> 

<CFIF "incident_id" is "#getMsgElems.NAME#"> 

<CFSET Appl i cati on. msg_el_incident_id = #getMsgElems.lD#> 
<CFELSEIF "timejlimit" is "#getMsgElems.NAME#"> 

<CFSET Application.msg_el_time_limit = #getMsgElems.lD#> 
<CFELSEIF "time_units" is "#getMsgElems.NAME#"> 

<CFSET Appl i cati on. msg_el_time_units = #getMsgEl ems . ID#> 
<CFELSEIF "cost_limit" is "#getMsgElems.NAME# M > 

<CFSET Application.msg_el_cost_limit = #getMsgElems.lD#> 
<CFELSEIF "rfq_resp_expected" is "#getMsgElems.NAME#"> 

<CFSET Appl i cati on. msg_el_rfq_resp_expected = #getMsgElems.lD#> 
<CFELSEIF M why_bi liable" is "#qetMsgElems.NAME#"> 

<CFSET Appl i cati on. msg_el_why_bi 11 able = #getMsgElems.lD#> 
<CFELSEIF "rfq_id" is "#getMsgElems.NAME#"> 

<CFSET Appl i cati on. msg_el_rfq_id = #getMsgEl ems . ID#> 
<CFELSEIF "entity_service_id" is "#getMsgElems.NAME#"> 

<CFSET Appl i cati on. msg_el_entity_service_id = #getMsgElems.ID#> 
<CFELSEIF "bid_id n is "#getMsaElems.NAME#"> 

<CFSET Appl i cati on. msg_elJ6id_id - #getMsgElems.lD#> 
<CFELSEIF "comments" is n #getMsgElems.NAME#"> 

<CFSET Appl i cati on. msg_el_comments = #getMsgElems.lD#> 
</CFIF> 
</CFLOOP> 

<! — incident state IDs — > 

<CFQUERY NAME="getlncStates" DATASOURCE="#dsn#"> 

select ID, NAME from INC_STATES 
</CFQUERY> 

<CFLOOP QUERY="getincStates"> 

<CFIF "reported" is "#getIncStates.NAME#"> I 
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<CFSET Appl i cati on. inc_state_reported = #getlncStates.iD#> 
<CFELSEIF "marked_bi liable" is "#getincStates.NAME#"> 

<CFSET Appl i cati on. inc_state_markecLbi 11 able = #getincstates . ID#> 
<CFELSEIF "recognized_by_propman" is "#getIncStates.NAME#"> 

<cfset Appl i cati on . i nc_state_recogni zed Jwpropman = #getincstates . id#> 
<CFELSEIF "rfq_sent" is "#getlncStates.NAME# f, > 

<CFSET Appl i cati on. inc_state_rfq_sent = #getlncStates.ID#> 
<CFELSEIF "timejvid^received" is "#getlncStates.NAME#"> 

<CFSET Appl i cati on. inc_state_time_bid_received = #getlncStates.lD#> 
<CFELSEIF "time_bid_accepted" is "#getlncStates.NAME#"> 

<CFSET Appl i cati on. inc_state_time_bid_accepted = #getlncstates . ID#> 
<CFELSEIF M completeJnd_received" is "#getlncStates.NAME#"> 

<CFSET Appl i cati on. inc_state_complete_bid_recei ved = #getincStates.lD#> 
<CFELSEIF "job_cleared_for_work" is "#getlncStates.NAME#"> 

<cfset Appl i cation. inc_state_job_cleared_for_work = #getlncStates.lD#> 
<CFELSEIF "being_serviced" is "#getincStates.NAME#"> 

<CFSET Appl i cati on. inc_statej5eing_serviced = #getincstates . ID#> 
<CFELSEIF n ready_for_inspection" is #getlncStates.NAME#"> 

<CFSET Application.inc_state_ready_for_inspection = #getlncstates . ID#> 
<CFELSEIF "work_ok_by_tenant" is "#qetincstates . name#"> 

<CFSET Appl i cati on. inc_state_worlc_ok_by_tenant = #getincStates.iD#> 
<CFELSEIF "work_ok_by_propman" is "#getincStates.NAME#"> 

<CFSET Appl i cati on. inc_state_worklokJ)y_propman = #getlncStates.lD#> 
<CFELSEIF "work_ok_by_both" is "#getlncStates.NAME#"> 

<CFSET Appl i cati on. inc_state_work_ok_by_both = #getincStates.lD#> 
<CFELSEIF "retired" is "#getincStates.NAME#"> 

<CFSET Appl i cati on. inc_state_reti red = #getlncStates . ID#> 

</CFIF> 
</CFLOOP> 

<! — message template IDs — > 

<cfquery NAME="getMsgTempl atelds" DATASOURCE="#dsn#"> 
select id , name from msg_templates 

</CFQUERY> 

<CFLOOP QUERY= l, getMsgTemplatelds"> 

<CFIF "generic" is "#getMsgTemplatelds.NAME#"> 

<CFSET Appl i cati on. msg_generic = #getMsgTemplatelds.lD#> 
<CFELSEIF "inc_create" is rt #getMsgTempl atelds. nanie#"> 

<CFSET Appl i cati on. msg_inc_create = #getMsgTemplatelds.ID#> 
<CFELSEIF "markecLbi liable" is "#getMsgTempl atelds . NAME#"> 

<CFSET Appl i cati on. msgjfiarked_bi liable = #getMsgTempl atelds. ID#> 
<CFELSEIF "rfq" is "#getMsgTempl atelds . NAME#"> 

<CFSET AppTication.msq_rfq = #getMsgTempl atelds. ID#> 
<CFELSEIF H rfq_.decline" is H #getMsgTempl atelds. name#"> 

<CFSET Appl i cati on. msg_rfq_decline = #getMsgTempl atelds. ID#> 
<CFELSEIF "bid" is "#getMsgTempl atelds. NAME#"> 

<CFSET Appl i cati on. msgj>id = #getMsgTempl atelds . ID#> 
<CFELSEIF "time_bid_accepted" is #getMsgTempl atelds . NAME#"> 

<CFSET Appl i cati on. msg_ti me _bi d_accepted = #getMsgTempl atelds. ID#> 
<CFELSEIF "complete_bid_accepted" is "#getMsgTempl atelds. name#"> 

<CFSET Appl i cati on. msg_complete.J>id_accepted = #getMsgTempl atelds. ID#> 
<CFELSEIF "work_approved* is w #getMsgTempl atelds . name#"> 

<CFSET Appl i cati on. msg_work_approved = #getMsgTempl atelds. ID#> 
<CFELSEIF "ready_for_inspection" is "#getMsgTempl atelds. NAME#"> 

<CFSET Application.msg_ready_for_inspection = #getMsgTempl atelds. ID#> 
<CFELSEIF " wo rk_disapp roved" is "#getMsgTempl atelds. NAME#"> 

<CFSET Appl i cati on. msg_work_disapproved = #getMsgTempl atelds. ID#> 
<CFELSEIF "bid_rejected" is "#getMsgTempl atelds. NAME#"> 

<CFSET Appl i cati on. msg_bid_rejected = #getMsgTemplatelds.lD#> 

</CFIF> 
</CFLOOP> 
</CFIF> 
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original Copy of pm_service.sum.lpa 
<! — copyright 1999 LandPort All rights reserved — > 

<CFINCLUDE TEMPLATE= n check_COOk . 1 pa"> 

<cfif #isDefined("URL.retired")#> 

<CFSET title = "Retired service requrests"> 

<CFSET header = "Retired incident summary "> 

<CFSET status.fi Iter = ""> 
<CFELSE> 

<CFSET title = "Pending Service Requests"> 
<CFSET header = "Service summary"> 
<CFSET status.fi Iter = "not"> 

</CFIF> 

<html> 
<head> 

<meta http-equiv=expi res content=0> 

<ti tl exCF0UTPUT>#ti tl e#</CFOUTPUTx/ti tl e> 

</head> 

<body bgcolor="<CFOUTPUT>#session . bgcolor#</CFOUTPUT>"> 

<h4xfont face="Arial">Santa Clara Land Company</fontx/h4> 

<hlxfont face="Arial "xCFOUTPUT>#header#</CFOirrPUT></fontx/hl> 

<CFINCLUDE TEMPLATE="corr_i nf o.tabl e . 1 pa"> 

<HR> 

<p> </p> 

<CFQUERY NAME="getIncSummary" DATASOURCE="#dsn#"> 

Sel ect ID , REPORTING.PARTY.ID , R^FIRST.NAME , R_MI , R.LAST.NAME , 
STATUS , HEADLINE , DESCRIPTION , LAST^ACTION , 

UNIT_ID , UNIT.NAME f SERVICE_NAME , URGENCY from INCSUMMARY 
where PR0PMAN_ID = #Sessi on. cor respondents d# and 

#status_filter# status « 'retired' 
order by ID 

</CFQUERY> 

<table border="0" width="100%" eel lspacing="l" cell padding="2"> 
<tr> 

<td bgcolor="80FF00" xh3xfont face="Arial">lncident number</fontx/h3> 
</td> 

<td width="14%" bgcolor="80FF00" xfont face="Arial "xh3>who</h3> 
</fontx/td> 

<td bgcolor="80FF00" xfont face="Arial "xh3>Urgency</h3> 
</fontx/td> 

<td bgcolor="80FF00" xh3xfont face="Arial">Status</fontx/h3> 
</td> 

<td width="25%" bgcolor="80FF00" xh3xfont face="Arial">Description</fontx/h3 
</td> 

<td width="25%" bgcolor="80FF00" ><h3xfont face="Arial ">Last Action</fontx/h3 
</td> 

<td width="25%" bgcolor="80FF00" xfont face="Arial "xh3>Action requi red</h3> 
</fontx/td> 
</tr> 

<! — <x> duplicates in the incsummary table are caused when two events occur 
simultaneously- There will be one line in the incsummary table for each event. 
We need a better way to handle these simultaneous events than just showing one o 

the set — > 

<;CFSET l^st.inc^id = "-1"> <! — Used for eliminating duplicates — > 
<CFSET line.colqr = "#Appl i cation. line color _b#"> 
<CFL00P QUERY="qetincSufnrnary"> ~ 
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<! — <><> This is bogus and should be fixed in the DB — > 
<CFIF #1 ast_i nc_i d# IS NOT #getlncSummary.ID#> 
<CFSET last_inc_id = #getlncSummary.lD#> 

<cfif "#line_color#" is "#Application.line_color_a#"> 
<CFSET line_color = "#Application.line_color_b#"> 

<CFELSE> 

<CFSET line^color = "#Appli cation. line_color_a#"> 
</CFIF> 

<CFQUERY NAME="getReporterEmail" DATASOURCE="#dsn#"> 
select val from corr_channel_rpt 
where name = 'e-jnaiT and correspondent.^ = 
#getincsummary . reporting_party_id# 

</CFQUERY> 
<CFOUTPUT> 
<tr> 

<td bgcol or="#line_color#" ><a 
h ref =" ten_i nc . 1 pa?i nc_i d=#getlncsummary . lD#"xsmal 1 ><f ont 
f ace=" Ari al >#getincSummary . iD#</f ontx/smal 1 ></a></td> 
<td width="14% rf bgcolor="#line_color#" xfont face="Arial "xsmall xa 
href ="mai 1 to : #getReporterEmai 1 - VAL# ,, >#getlncSummary . R_FIRST_NAME# 

#getincSummary . R_mi# #getincSummary . R_LAST_NAME#</ax/smal 1 x/f ontx/td> 

<td bgcol or="#l i ne_col or#"xtabl ext r> 
<td 

<CFIF "emergency" IS #getlncSummary.URGENCY#> 
bgcol or=" red" 

<CFSET urge = "#getlncSummary.URGENCY#"> 
<CFELSEIF "urgent" IS #getincsummary . URGENCY#> 
bgcol or= H orange" 

<CFSET urge = "#getincSummary.URGENCY#"> 
<cfelseif "asap" IS #getlncsummary.URGENCY#> 
bgcol or="yel I ow" 

<CFSET urge = "#getlncSummary.URGENCY#"> 
<CFELSEIF "nap" IS #getlncSummary.URGENCY#> 
bgcol or="80FF80" 
<CFSET urge - ""> 

<CFELSE> 

<CFSET urge = "unknown"> 
</CFIF> 
> 

<f ont f ace-"Ari al "xsmal 1 >#u rge#</smal 1 x/f on tx/td> 
</trx/tabl ex/td> 

<td bgcol or="#line_color#" xsmall xfont 
f ace="Ari al ">#getlncSummary . STATUS#</f ontx/smallx/td> 

<td width=*25%" bgcol or="#line_color#" xsmall xfont 
f ace="Ari al ">#getlncSummary . HEADLlNE#</f ontx/smal lx/td> 

<td width=*253T bgcol or="#line_color#" xsmallxfont 
f ace="Ari al ">#getincsummary . LAST_ACTlON#</f ontx/smal 1 ></td> 

<td width=*25%" bgcolor="#line_color#" xsmallxfont face="Arial"> 
<CFIF "reported" is #qetlncSummary.STATUS#> 

<A HREF="build_rfq. Tpa?inc_id=#getlncSummary.lD# M >Generate an RFQ</A> 
<CFELSEIF "markedjri liable" is #getincsummary.STATUS#> 

Tenant has been informed that this incident is billable. 
<CFELSEIF "recoc|nized_by_propman" is #getlncSummary.STATUS#> 
<A HREF="add_-inc_ven.lpa">Select another vendor<! — <x> need to write code 
here — x/A> 

<CFELSEIF "rfq_sent" is #getlncSummary.STATUS#> 
RFQ sent to vendor and waiting for response 
<CFELSEIF "timeJnd_received" is #qetlncSummary.STATUS#> 

<A HREF="pnfL.review_bid.lpa?inc_id=#getincSummary.lD#">Review this time bid</a> 
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<CFELSEIF M time_bid_accepted" is #getlncSummary.STATUS#> 

Vendor is preparing a cost bid. 
<CFELSEIF "complete_bid_received" is #getincSummary.STATUS#> 
<A HREF="prrureview_bid.1pa?inc_id=#getlncSummary.lD#">Review this complete 
bi d</a> 

<CFELSEIF "job_cleared_for_work" is #getlncSummary.STATUS#> 

OBSOLETE STATE 

<CFELSEIF "beinq_serviced" is #getlncSummary.STATUS#> 

<! — <><> If the tenant has disapproved of the completed service, then the 
incident 

state comes here, we need a way for the propman to override the 

tenant's 

disapproval here. — > 
Incident being serviced 
<CFELSEIF "ready_for_inspection" is #getlncSummary.STATUS#> 

<A HREF="pnuapv_work.lpa?inc_id=#getlncSummary.lD# ,, >Report job inspection 
results</a> 

<CFELSEIF "work_olcJ>y_tenant" is #getlncSummary.STATUS#> 

<A HREF="prruapv_work.lpa?inc_id=#getincsummary.iD# M >Report job inspection 
results</a> 

<CFELSEIF "work_ok_by_propman" is #getincSummary.STATUS#> 

Awaiting approval by tenant or 

<A HRE F= pm_ap v_wo r k . 1 pa?i nc_i d=#getlncsummary . iD#&over ri de=l">Over ri de 
tenant's decision</a> 

<CFELSEIF "work_ok_by_both" is #getincSummary.STATUS#> 

<A HREF="pm_auth_pay.lpa?inc_id=#getlncSummary.lD#">Retire this request</a> 
<CFELSEIF "retired" is #getlncSummary .STATUS#> 

(retired - no further action needed) 
<CFELSEIF "vendor_hold_on_extra" is #getincSummary.STATUS#> 
<CFELSEIF "job_suspended_on_cost_overrun" is #getlncSummary.STATUS#> 
<CFELSE> 

no known action 

</CFIF> 

</f ontx/smal 1 ></td> 
</tr> 

</CFOUTPUT> 

</cfif> <! — this is not a duplicate — > 
</CFLOOP> 
</table> 

<pxfont face="Arial"> 

<CFIF #lsDef i ned("URL . reti red" )#> 

<a href="pm_service_sum.lpa">view log of active incidents</a> 

<CFELSE> 

<a href="prruservice_sum.lpa?retired=l">view log of completed service requests</a> 
</CFIF> 

<brxa href="tenant_req.lpa"> Enter a new service request</a> 
</fontx/p> 

<HR> 

<CFSET datejiuman = DateFormat(Now() , Application.lp_date_mask)> 

<CFOUTPUT> 

<p>Date this page was created: #date_human#</p> 
</CFOUTPUT> 

<pximg src="logo.GlF" alt="logo.GlF (2991 bytes)"x/p> 
</body> 
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<CFIF #lsDefined("URL.override n )#> 

<CFSET url_tack__on = "&override=#URL.override#"> 

<CFSET heading = "override tenant's approval of vendor work - incident"> 
<CFELSE> 

<cfset url_tack_on = ""> 

<CFSET heading = "Approve of vendor work - incident"> 

</CFIF> 

<CFPARAM NAME="URL . inc_id"> 

<CFSET session. inc_id = "#URL.inc_id#"> 
<CFINCLUDE TEMPLATE="inc„head. 1pa"> 

<CFQUERY NAME="getlnvoice" DATASOURCE="#dsn# M > 

select PO_NUM f TOTAL LABOR » TOTAI PARTS , TOTAL f INVOICE^ TEXT from INVOICES 

where INC_ID = #Session.inc_id# 

</CFQUERY> 

<CFQUERY NAME="getRfq" DATASOURCE="#dsn#"> 

Select COST.LIMIT l TIME_LIMIT > TIME_UNITS f TIMESTP from RFQS 
where INCID = #Session.inc_id# 

</CFQUERY> 

<CFQUERY NAME="getInc" DATASOURCE="#dsn#"> 

select VEPL.COMP.TIME from INCIDENTS 

where ID = #Session.inc_id# 
</CFQUERY> 

<! — Compute time difference — > 
<CFIF "days" is "#GetRfq.TlME_UNlTS#"> 

<CFSET my_date_part = "d"> 
<CFELSEIF "hours" is "#GetRfq.TIME_UNITS#"> 

<CFSET my_date_part = "h"> 

<CFELSEIF "minute? 1 is "#GetRfq.TIME__UNITS#"> 
<CFSET my_date_part = "m"> 

<CFELSE> 

<CFSET my_date_part « "d"> 

<! — <><> This should be logged as an error — > 
</CFIF> 

<CFSET exp_comp_time = #DateAdd(my_date_part l getRf q . TIME_LIMIT , getRfq.TlMESTP)#> 
<CFSET time_diff = #DateDiff ("h" ,exp_comp_time, getinc.VEN_COMP_TlME)#> 
<CFIF (48 LT #time_diff#)> 

<CFSET day_diff = #time_diff# / 24> 

<CFSET time_diff_text = "#day_diff# days"> 
<CFELSEIF 0 LT #time_diff#> 

<CFSET time_diff_text * "#time_diff# hours"> 

<CFELSE> 

<CFSET time„diff_text = "on time"> 

</CFIF> 



<h3xfont face="Arial">Vendor invoice:</fontx/h3> 

<! — <><> need to handle the case of no invoice recorded — > 

<CFOUTPUT> 

<table border= M 0" cellspacing="l" cellpadding="2"> 
<t rxtdx/tdxtdxf ont f ace="Ari al "xb>vendor i nvoi ce</bx/f ontx/td> 
<tdxfont face="Arial"xb>original RFQ</bx/fontx/td> 
<tdxf ont f ace="Ari al "><b>di f f erence</bx/f ontx/tdx/tr> 

<trxtd bgcolor= ,, 80FF00"><smallxfont face= n Arial">Labor cost 
$</f ontx/smal 1 ></td> 
<td bgcolor="80FF80"xsmanxfont face="Arial M > 
<CFIF "" is NOT "#getlnvoice.TOTAL_LABOR# M > 
#getinvoi ce ,total_labor# 

<CFELS£> 
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</CFIF> 

</fontx/smal lx/td> 

<td bgcol or="80FF00"xsmal 1 ><f ont f ace="Ari al ">— </f ontx/smal 1 ></td> 
<td bgcol or="80FF00"xsmal lxf ont f ace="Ari al ">— </f ontx/smal 1 x/td> 
</tr> 

<trxtd bgcol or="80FF00 n xsmal lxf ont face="Arial">Parts cost 
$</f ontx/smal 1 ></td> 
<td bgcol or="80FF80"xsmallxf ont face="Arial n > 
<CFIF "" is not "#getlnvoice.TOTAL_PARTS#"> 
#getln voi ce . TOTAl PARTS# 

<CFELSE> 
</CFIF> 

</f ontx/smal 1 x/t d> 

<td bgcol or="80FF00"xsmal lxf ont face="Arial">-— </fontx/smallx/td> 
<td bgcol or="80FF00"xsmal lxf ont face="Ari al">— </f ontx/smal lx/td> 
</tr> 

<trxtd bgcol or="80FF00 M xsmanxf ont face="Arial M >Total cost 
$</f ontx/smal 1 x/t d> 
<td bgcolor="80FF80"xsmallxfont f ace="Ari al "> 
<CFIF "" is NOT ,, #getlnvoice.TOTAL# M > 

<CFSET cost_diff = #getRfq.COST_LlMlT# - #getinvoice.TOTAL#> 

#getln voi ce ■ total# 

<CFELSE> 

<CFSET cost_diff = "—"> 

</CFIF> 

</f ontx/smal 1 ></td> 
<td bgcol or="80FF00"xsmal 1 xf ont 
f ace="Ari al ">#qetRf q . COST_LiMiT#</f ontx/smal 1 x/td> 

<td bgcol or= 80FF00"xsmallxf ont f ace= M Ari al ">#cost_di ff#</f ontx/smal 1 x/t d> 
</tr> 

<trxtd bgcol or="80FF00"xsmal lxf ont face="Arial M >Completion 
ti me</f ontx/smal 1 ></td> 

<td bgcol or="80FF80 M xsmanxf ont face="Arial %#DateFormat(getlnc.VEN_COMP_TlME, 
Appl i cati on . 1 p_datejnask)# 

#TimeFormat(getinc.VEN_coMP_TlME, 
Appl i cati on . 1 p_ti me_mask)#</f ontx/smal lx/td> 

<td bgcol or="80FF00"xsmanxf ont face= ,, Arial">#DateFormat(exp_comp_time > 
Appl i cati on . 1 p_date_mask)# 

#Ti meFormat (exp_comp_ti me f Appl i cati on . 1 p_ti me_mas k) #</f ontx/smal 1 ></td> 

<td bgcol or="80FF00 n xsmal lxf ont 
f ace="Ari al ">#ti me_di ff_text#</f ontx/smal 1 ></td> 

</tr> 
</table> 

<CFIF ,,n IS NOT "#qetInvoice.INVOICE_TEXT# M > 

<h3xfont face= AriaV>lnvoice text:</fontx/h3> 

<table border="0" censpacing="l" cellpadding= M 2 n > 

<trxtd bgcolor = "#Application.line_color_a#xsman><font 
face= M Ari al ">#getlnvoi ce . INV0lCE_TEXT#</f ontx/smal lx/trx/td> 

</tabl e> 

</CFIF> 
</CF0UTPUT> 

<pxfont face="Arial "xsmall>Comments regarding this invoice : </smallx/fontx/p> 
<CFOUTPUT> 

<form method="POST" action="apv_work w thanks.lpa?role=propman#url_tack_on#"> 
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</CF0UTPUT> 
<pxtextarea 

rows="5" name=" comments" co1s="56 M x/textareaxbr> 
<input type="submit" value="Approved" name="approve"> 
<input type= M submit" va1ue="Not approved" name= M disapprove"x/p> 



<HR> 

<CFSET datejiuman = Dat e Format (Now () , Application.lp_date_mask)> 

<CFOUTPUT> 

<p>Date this page was created: #date_human#</p> 
</CFOUTPUT> 

<pximg src="logo.GlF" a"lt="1ogo.GlF"x/p> 
</body> 



</form> 
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<CFQUERY NAME= H getlnvoice" DATASOURCE="#dsn# ,f > 

Select POL.NUM , TOTAI LABOR , TOTAI PARTS , TOTAL f INVOICE_TEXT from INVOICES 

where INC_ID = #Session.inc_id# 
</CFQUERY> 

<! — compute the invoice total — > 

<CFIF ("" IS NOT M #get in voice. TOTAL*") AND (0 IS NOT #getlnvoice.TOTAL#)> 
<CFSET i nvoi ce_total = "#getinvoice.TOTAL#"> 

<CFELSE> 

<CFSET invoice_total = #get invoi ce . TOTAI labor# + #getinvoice.TOTAL_PARTS#> 

</CFIF> 

<! — <><> what to do if all totals are zero ?? — > 
<! — <><> What to do if totals are not coherant ? — > 

<CFSET heading = "Record payment of complete work order - incident"> 

<CFPARAM NAME= ,, URL.inQ_id"> 

<CFSET Session. incid = "#URL.inc_id#"> 
<CFINCLUDE TEMPLATE="i ncjiead . 1 pa"> 

<pxfont face= ,l Arial ,, xh3>Payment information for this incident : </h3x/fontx/p> 

<CFOUTPUT> 

<form method="POST" action="pm_auth_pay_thanks.lpa"> 

<table border="0" cellspacing="l" cellpadding="2"> 
<tr> 

<tdxfont face="Arial "xinput type=" radio" name="pmt_type" 

val ue=" check" checked>check</f ontx/td> 
<tdxfont face="Arial "xinput type=" radio" name="pmt_type" 

val ue=" credi t">Credi t card</f ontx/td> 
<tdxfont face="Arial "xinput type="radio" name="pmt_type" 

value-"eft">Electronic funds transfer</fontx/td> 
</tabl e> 

<font face="Arial"> 

<table border="0" cellspacing="l" cellpadding="2"> 

<trxtd bgcol or="#Appli cati on. line_color_a#"xfont face="Arial">invoice total 
$</fontx/td> 

<td bgcol or="#Appl i cati on . 1 i ne_col or_b#">#i nvoi ce_total #</tdx/t r> 
<trxtd bgcol or=="#Appli cati on. line_color_a#"xfont face="Arial">Payment amount 
$</fontx/td> 

<td bgcol or="#Appli cati on. line_color_b#"xinput name="amount" type="text" 
size="10"x/tdx/tr> 

<trxtd bgcol or="#Appli cati on. line_color_a#"xfont face="Arial">Payment tracking 
number : </fontx/td> 

<td bgcol or="#Appli cati on. line_color_b#"xinput name="pmt_num" type="text" 
size="15"x/tdx/tr> 
</table> 

<input type="submit" value="Record payment" name="approve"> 

</form> 

</CFOUTPUT> 

<HR> 

<CFSET dateJiuman = DateFormat(Now() f Application. lp_date_mask)> 

<CFOUTPUT> 

<p>Date this page was created: #date_human#</p> 
</CFOUTPUT> 

<pximg src="logo.GlF" alt="logo.GlF"x/p> 

</body> 

</html> 
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<! — Copyright 1999,2000 LandPort All rights reserved — > 

<CFPARAM NAME=" FORM . pmt_type"> 
<CFPARAM NAME=" FORM . amount > 
<CFPARAM NAME="FORM.pmt_num"> 

<cfquery NAME="getinvoice" DATASOURCE= ,, #dsn# M > 
select ID,P0_NUM from INVOICES 
where INC_ID = #Session.inc_id# 

</CFQUERY> 

<CFQUERY NAME="insertPayment" DATASOURCE="#dsn#"> 

insert into payments (po^num, invoice_id, pmt_type, pmt_num, amount) 
val ues ( ' #getlnvoi ce . PO_NUM# ' f #getinvoi ce . ie># , ' #form . pmt_type# 1 , 
' #form . pmt_num# ' , #FORM . amount*) 

</CFQUERY> 

<CFSET sencLmessage = "no"> 

<CFSET event_name = "authorize_pay"> 

<CFSET next_state = #Application.inc_state_retired#> 

<CFSET display_jnsg = "incident #Session.inc_id# retired M > 

<CFSET page_title = #display_jnsg#> 

<! — The following are dummies because sencLmessage=NO — > 
<CFSET my_recipient_id = 0> 

<CFSET back = "pm_service_sum.lpa"> 

<CFiNCLUDE TEMPLATE="yes_no_t hanks . 1 pa"> 
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<! — pm_bid_accept.lpa 

Copyright 2000 Landport inc. All rights reserved 

— > 

<CFPARAM NAME="URL.inc_id"> 

<CFSET Session. inc_id = #URL.inc_id#> 

<CFSET heading-"Process vendor bid"> 
<CFINCLUDE TEMPLATE="i ncjiead . 1 pa"> 

<! — Get the rfq and the bid — > 
<CFQUERY NAME= M getRfq M DATASOURCE="#dsn#"> 

select ID from RFQS 
where INC_ID = #Session.inc_id# 
</CFQUERY> 

<CFSET Session. rfq_id = #getRfq.lD#> 

<CFQUERY NAME="getBid" DATASOURCE="#dsn#"> 

Sel ect ID , ENT_SRV_ID , FIRST_j\CTION , COST_BID , START_TIME , END_TIME , 
VEN_COMMENTS from BIDS 

where RFQJED = #Session.rfq_id# 

</CFQUERY> 

<table border="0" cellpadding="l" cellspacing^'l'V 
<CFOUTPUT> 

<t rxtd bgcol or="#Sessi on . header_col or#"xbxf ont f ace="Ari al ">Sel ected 
?</fontx/bx/td> 

<td bgcol or="#Sessi on . header_col or#"xbxf ont 
f ace="Ari al ">Bi dder</f ontx/bx/td> 

<td bgcol or="#Sessi on . header_col or#"xbxf ont 
f ace="Ari al ">Start</f ontx/bx/td> 

<td bgcol or="#Sessi on . header_col or#"xbxf ont 
f ace="Ari al ">Compl ete</f ontx/bx/td> 

<td bgcol or="#Sessi on . header_col or#"xbxf ont f ace= M Ari al ">cost 
es ti mate</f ontx/bx/td> 

<td bgcol or="#Sessi on. header_color#"xbxf ont face="Arial ">Vendor 
Comments</fontx/bx/td> 

<td bgcol or="#sessi on . header„col or#"xbxf ont f ace="Ari al ">Addi ti onal 
i nf o</f ontx/bx/tdx/t r> 
</CFOUTPUT> 

<CFSET bidder_serial = 0> 

<CFSET line_color = "#Application.line_color_b_jnanager#"> 
<form met hod=" POST" action="pm_review.J)id_thanks.lpa"> 
<CFLOOP QUERY= n getBid"> 

<CFSET bidder_serial = #bidder_serial# + 1> 

<CFIF "#line_color#" IS "#Appli cation. line_color_a_manager#"> 
<cfset line_color = "#Application.lineLXolor_b_manager# ,, > 

<CFELSE> 

<CFSET line_color = "#Application.line„color_a_manager#"> 
</CFIF> 

<! — Now get the bidder's info — > 

<CFQUERY NAME="getEntSevlnfo" DATASOURCE="#dsn#"> 

Sel ect ENTITY_ID , SERVICE f ENTITY_NAME , FIRST_NAME f MI , LAST_NAME 
from SERVICEJWIRG 

where ENTITY_SERVICE_ID = #getBid.ENT_SRV_lD# 
</CFQUERY> 

<CFOUTPUT> 

<trxtd bgcol or= M #line_color# H xsmanxinput type=" radio" name="selected_bidder" 
value="#getB?d.lD#" 

<CFIF 1 IS #bidder_serial#> 
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checked 

</CFIF> 

></smallx/td> 

<td bgcol or="#line_color#"xsmallxf ont face="Arial ">#getEntSevinfo. first_name# 
#getEntSevinf o - mi# #get EntSevlnf o . last_name# , 

#getEntSevinfo . ENTiTT_NAME#</f ontx/smal lx/td> 
<td bgcol or="#l i ne_col or#"xsmal 1 ><f ont 
f ace="An al ">#DateFormat (getBi d . START_TIME , Appl i cati on . 1 p_date_mask)# 

#Ti me Format (getBi d . START_TIME , Appl i cati on . 1 p_ti mejiask) #</f ontx/smal 1 ></td> 
<td bgcol or="#l i ne_col or#"xsmal 1 xf ont 
f ace="An al n >#DateFormat (getBi d . end_time , Appl i cati on . 1 p_date_mask)# 

#Ti meFormat (getBi d . end_time , Appl i cati on . 1 p_ti me_mask)#</f ontx/td> 
<td bgcol or="#l i ne_col or#"xsmal I xf ont 
f ace="An al ">$#getBi d . COST_BlD#</f ontx/smal 1 ></td> 

<CFIF IS NOT "#getBi d . VEN_COMMENTS#"> 
<td bgcol or="#l i ne_color#"xsmallxfont 
f ace="Ari al rf >#getBid . VEN_COMMENTS#</f ontx/smal lx/td> 
<CFELSE> 

<td bgcol or="#l i ne_col or#">&nbsp ; </td> 

</CFIF> 

<CFIF "bicLonly" IS ,, #getBid.FlRST_ACTION#"> 

<td bgcol or="#line_color#"xsmallxf ont face="Arial" color="red">TlME BID 
ONLY</f ontx/small x/td> 
<CFELSE> 

<td bgcol or="#l i ne_col or#">&nbsp ; </td> 

</CFIF> 

</tr> 

</CFOUTPUT> 
</CFLOOP> 

<! — <CFOUTPUTxi nput type="hidden" name="numJ>idders" 

val ue="#bi dder.se ri al #"x/cfoutput>~-> 

</table> 

<pxfont face="Arial">PO number (if you accept this bid) :</font> 
<input type="text" name="po_num" size="20 x/p> 

<pxfont face="Arial">Enter any comments below that you would like to include in 
your 

reply to the winning bidder (or to all bidders if you select "send comments 
only ) :</fontx/p> 

<textarea rows="5" name=" comments" cols="56"x/textareaxbrxbr> 

<table border="0" cellpadding="2" cellspacing="0" width="100%"> 
<tr> 

<tdxfont face="Arial">How would you like to respond to these bids 
?</fontx/td> 

<tdxfont face="Arial"xinput type="submit" value="Accept selected bid" 
name="accept"> </fontx/td> 

<tdxfont face="Arial"xinput type="submit" value="Reject all bids" 
name="reject"> </fontx/td> 

<tdxfont face="Arial"xinput type=" submit" value="Send comments only" 
name="comments_onl y"> </f ontx/td> 
</tr> 
</tabl e> 
</form> 

<HR> 

<CFSET date_human = DateFormat(Now() f Appl i cati on. lp_date_mask)xCFOUTPUT> 

<p>Date this page was created: #date_human#</p> 

</CFOUTPUT> 
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<pximg src= ,, logo.GlF" alt="logo.GIF"x/p> 

</body> 

</html> 
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<! — Copyright 1999 f 2000 LandPort All rights reserved — > 

<! <HTML> 

<HEADxTITLE>Process vendor bid</TlTLE> 

</HEAD> 
<BODY> > 

<! — <CFQUERY NAME="getlnci dentstate" DATASOURCE="#dsn#"> 

select STATE_ID from INCIDENTS 

where ID = #Session.inc_id# 
</CFQUERY>— > 

<!--- Make sure that there are indeed comments if this is a comments_only response 
— > 

<CFIF #lsDefined( M FORM.comments_only")#> 
<CFIF "" is "#FORM. comment s#"> 

<font color="red">Error : You did not enter any comments.</font> 

</BODYx/HTML> 
<CFABORT> 
</CFIF> 
</CFIF> 

<CFSET conutext = '^FORM.comments*'^ 
<CFSET po_num = ,, #FORM.po_num#"> 

<CFSET thanks_text = ""> 

<CFSET title = ""> 

<CFSET back = "pm_service_sum.lpa"> 

<! — loop with each bidder, either accepting or rejecting the bid — > 
<CFQUERY NAME="getBidld" DATASOURCE="#dsn#"> 

select ID from BIDS 

where RFQ_ID - #Session. rfq_id# 

</CFQUERY> 

<CFLOOP QUERY="getBidId M > 

<CFSET my_bid = #getBidld.lD#> 

<! — set the proper mode for responding to this current bidder — > 
<CFIF #isDefined( FORM.Accept")#> 

<CFIF #getBidld.lD# IS #FORM.selected_bidder#> 

<CFSET mode = n accept"> 
<CFELSE> 

<CFSET mode = "reject M > 

</CFIF> 

<CFELSEIF #isDefined("FORM-Reject n )#> 

<CFSET mode = M accept"> 
<CFELSEIF #lsDefined("FORM.comments_only")#> 

<CFSET mode = "comment s_only"> 
</CFIF> 

<CFINCLUDE TEMPLATE="accept_bi d . 1 pa"> 
</CFLOOP> <! — address each bidder — > 

<CFINCLUDE TEMPLATE=" thanks . 1 pa"> 
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<!--- Copyright 1999 LandPort All rights reserved — > 

<CFINCLUDE TEMPLATE="check_COOk. lpa"> 

<CFIF #isDefined("URL.retired")#> 

<CFSET title = "Retired service requrests"> 
<CFSET header = "Retired incident summary"> 
<CFSET status_filter = 

<CFELSE> 

<CFSET title = "Pending Service Requests"> 
<CFSET header = "Service summary"> 
<CFSET status_filter = "not"> 

</CFIF> 

<html> 
<head> 

<meta http-equiv=expires content=0> 

<ti tl e><CFOUTPUT>#ti tl e#</CFOUTPUTx/ti tl e> 

</head> 

<body bgcolor= M <CFOUTPUT>#Session . bgcolor#</CFOUTPUT>"> 

<h4xfont face="Arial">Santa Clara Land company</fontx/h4> 

<hlxf ont f ace="Ari al "xCFOUTPUT>#header#</CFOUTPUTx/f ontx/hl> 

<CFINCLUDE TEMPLATE="corr_i nf o_tabl e . 1 pa"> 

<HR> 

<p> </p> 

<CFQUERY NAME="getlncSummary" DATASOURCE="#dsn#"> 

sel ect ID , REPORTING^PARTYJD , R_FIRST_NAME , R_MI f R_LAST_NAME , 
STATUS , HEADLINE f DESCRIPTION , LAST^ACTION , 

UNIT_ID,UNIT_NAME,SERVICE_NAME, URGENCY from INC_SUMMARY 
where PROPMAN_lD = #Sessi on. cor respondents d# and 

#status_filter# status = 'retired 1 
order by ID 

</CFQUERY> 
<CFOUTPUT> 

<table border="0" width="1005r cellspacing="l" cellpadding="2 n > 
<tr> 

<td bgcol or="#Sessi on .header_color#" xh3xfont face="Arial">lncident 
number</fontx/h3x/td> 

<td width="14%" bgcol or="#Sessi on. header_color#" xh3xfont 
face="Arial ">who</fontx/h3x/td> 

<td bgcol or="#Sessi on . header„col or#" xh3xf ont 
face="Arial">Urgency</fontx/h3x/td> 

<td bgcol or="#Sessi on. header__co1or#" xh3xfont 
face="Arial">Status</fontx/h3x/td> 

<td width="25%" bgcol or="#Sessi on. header_color#" xh3xfont 
f ace="Ari al ">Descri pti on</f ontx/h3x/td> 

<td width="25%" bgcol or="#Sessi on. header_color#" xh3xfont face="Arial">Last 
Acti on</f ontx/h 3></td> 

<td width="25%" bgcol or="#Sessi on. header_color#" xh3xfont face="Arial ">Action 
requi red</f ontx/h3x/td> 
</tr> 

</CFOUTPUT> 

<! — <x> duplicates in the inc_summary table are caused when two events occur 
simultaneously. There will be one line in the inc_summary table for each event. 
We need a better way to handle these simultaneous events than just showing one of 

the set — > 

<CFSET last_inc_id = "-!"> <!--- used for eliminating duplicates --- > 
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<CFSET line_color = ,, #App1ication.line_color_b_manager#"> 
<CFLOOP QUERY="getlncSummary"> 

<! — o<> This is bogus and should be fixed in the DB — > 
<CFIF #last_inc_id# IS NOT #getlncsummary.lD#> 
<CFSET last_inc_id = #getincsummary .ID#> 

<CFIF "#line_color#" IS "#Application.line_color_a^anager#"> 
<CFSET line^color = "#Application Jine_colorJ)„jnanager#"> 

<CFELSE> 

<CFSET line_color = "#Application.line_color_a_jnanager#"> 
</CFIF> 

<CFQUERY NAME^'getReporterEmail" DATASOURCE="#dsn#"> 
select VAL from CORR_CH AN N E I — R PT 

where name = 'e_mail' and correspondents = 
#getlncSummary . REP0RTING_PARTY_ID# 
</CFQUERY> 
<CFOUTPUT> 
<tr> 

<td bgcol or="#line_color#" ><a 
href ="ten_i nc . 1 pa?i nc_i d=#getlncsummary . ID#"xsmal 1 ><f ont 
f ace="Ari al >#getincsummary . lD#</f ontx/smal lx/a></td> 
<td width="14% rf bgcol or="#line_color#" xfont face="Arial "xsmall xa 
href ="mai 1 to : #getReporterEmai 1 . VAL#">#getincSummary . r_first_name# 

#getlncsummary . R_MI# #getincsummary . R_LAST_NAME#</ax/smal 1 x/f ontx/td> 

<td bgcol or="#l i ne_col or#"xtabl ext r> 
<td 

<CFIF "emergency" IS #getlncSummary.URGENCY#> 
bgcol or="red" 

<CFSET urge = "#getlncSummary.URGENCY#"> 
<CFELSEIF "urgent" IS #getlncSummary.URGENCY#> 
bgcol or="orange" 

<CFSET urge = "#getincSummary.URGENCY#"> 
<CFELSEIF "asap" IS #getlncSummary.URGENCY#> 
bgcol or="yel low" 

<CFSET urge = "#getincSummary.URGENCY#"> 
<CFELSEIF "nap" IS #getincSummary.URGENCY#> 

bgcol or="#l i ne_col or#" 

<CFSET urge = ""> 
<CFELSE> 

<CFSET urge = M unknown"> 

</CFIF> 
> 

<font face= n Arial "xsmal l>#urge#</smallx/fontx/td> 
</trx/tabl ex/td> 

<td bgcol or="#line_color#" xsmall xfont 
f ace="Ari al ">#getlncSummary . STATUS#</f ontx/smal 1 x/td> 
<td width= 25%" bgcol or="#line_color#" xsmall xfont 
face="Arial ">#qetincSummary . HEADLlNE#</f ontx/smal lx/td> 

<td width= 25%" bgcol or="#line„color#" xsmall xfont 
f ace=" Ari al ">#getlncSummary . LAST_ACTION#</f ontx/smal 1 ></td> 

<td width= 25%" bgcol or="#line_color#" xsmallxfont f ace="Ari al "> 
<CFIF "reported" is #qetlncSummary.STATUS#> 

<A HREF="build_rfq.lpa?inc_id=#getlncSummary.iD#">Generate an rfq</a> 
<CFELSEIF "marked_bi liable" is #getlncSummary.STATUS#> 

Tenant has been informed that this incident is billable. 
<CFELSEIF "recognized_by_propman" is #getincSummary.STATUS#> 

<A HREF="add_inc_ven. lpa">Select another vendor<!--- <><> need to write code 
here — ></A> 

<CFELSEIF "rfq_sent" is #getlncSummary.STATUS#> 
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RFQ sent to vendor and waiting for response 
<CFELSEIF "time_bicLreceived" is #qetincSummary.STATUS#> 

<A HREF= ,, pnfureview_bid.lpa?inc_id=#getincSummary.lD#">Review this time bid</a> 
<CFELSEIF "time_bid_accepted" is #getlncSummary.STATUS#> 

vendor is preparing a cost bid. 
<CFELSEIF "completeJnd_received" is #getincSummary.STATUS#> 

<A HREF="pm_review_bid.lpa?inc_id=#getincSummary.iD# ,, >Review this complete 
bi d</a> 

<CFELSEIF M job_cleared_for.work" is #getincSummary.STATUS#> 

OBSOLETE STATE 
<CFELSEIF "being_serviced" is #getincSummary.STATUS#> 

<! — o<> if the tenant has disapproved of the completed service, then the 
incident 

state comes here. We need a way for the propman to override the 

tenant's 

disapproval here. — > 
Incident being serviced 
<CFELSEIF "ready^for^inspection" is #getincSummary.STATUS#> 

<A HREF="pm_apv.work.lpa?inc.id=#getlncSummary.lD#">Report job inspection 
result s</a> 

<CFELSEIF "work_olcJ>y_tenant" is #getlncSummary.STATUS#> 

<A HREF="pm_apv_work.lpa?inc_id=#getlncSummary.iD# M >Report job inspection 
results</a> 

<CFELSEIF "work_ok_by_propman" is #getlncSummary.STATUS#> 

Awaiting approval by tenant or 

<A HREF= , pm_apv_work . 1 pa?i nc_i d=#getlncSummary . lD#&over ri de=l">Overri de 
tenant's decision</a> 

<CFELSEIF "work_ok_by_both" is #getlncSummary.STATUS#> 

<A HREF="pm„auth_pay.lpa?inc_id=#getincSummary.iD# ,, >Retire this request</a> 
<CFELSEIF "retired" is #getincSummary.STATUS#> 

(retired - no further action needed) 
<CFELSEIF "vendor_holcLon__extra" is #getincsummary.STATUS#> 
<CFELSEIF "job_suspended_on_cost_overrun" is #getincSummary.STATUS#> 

<CFELSE> 

no known action 

</CFIF> 

</f ontx/smal 1 ></td> 
</tr> 

</CFOUTPUT> 

</CFlF> <! — this is not a duplicate — > 

</CFLOOP> 

</tabl e> 

<pxf ont f ace="Ari al "> 

<CFIF #lsDef i ned ("URL . reti red")#> 

<a href="pm_service_sum.lpa">view log of active incidents</a> 

<CFELSE> 

<a href="prruservice_sum.lpa?retired=l">View log of completed service requests</a> 
</CFIF> 

<brxa href="tenant_req.lpa"> Enter a new service request</a> 
</fontx/p> 

<HR> 

<CFSET date_human = DateFormat(Now() , Application.lp_date_mask)> 

<CFOUTPUT> 

<p>Date this page was created: #date_human#</p> 
</CFOUTPUT> 

<pximg src="logo.GlF" alt="logo.GIF (2991 bytes) "x/p> 

</body> 

</html> 
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<! — accept_bid - processes a bid acceptance and makes the proper db updates and 
messages 

Copyright 1999,2000 LandPort All rights reserved — > 

<CFPARAM NAME="Sessi on . i nc_i d"> 
<CFPARAM NAME="Session.rfq_id"> 

<CFPARAM NAME="COm_text"> 
<CFPARAM NAME="po_num"> 

<CFPARAM NAME="mode"> <! — set to accept, reject, or comments_only — > 

<CFPARAM NAME="my_bid" DEFAULT=""> 

<CFIF "accept" is "#mode#"> 

<CFSET next_state = #Application.inc_state_being_serviced#> 
<CFSET event_label = "bid accepted"> 

<CFSET user_text = "This bid has been accepted. The vendor will be informed."> 
<CFELSEIF "reject" is "#mode#"> 

<CFSET next_state = #Application.inc_state_recognizecLby_propman#> 
<CFSET event_label = "bid rejected"> 

<CFSET user_text = "This bid has been rejected. The vendor will be informed."> 
<CFELSEIF " comment s.only" is "#mode#"> 
<cfif "" is "#conutext#"> 

<CFSET thanks_text ~ '#thanks_text#<font color="red">Error : You did not enter 
any comments. </font>*> 

<! — o<> Need a better handling of this - pass error code back to caller 

— > 

</CFIF> 

<CFSET next_state = #getlncidentstate.STATE_lD#> 
<CFSET event_label = bid comments to vendor"> 

<CFSET user_text = "Your comments will be forwarded to the vendor. "> 
<CFELSE> 

<! — oo Need a better handling of this - pass error code back to caller — > 
<cfset thanks_text = '#thanks_text#<font color-"red">Error : cannot recognize 

button . </f ont> * > 

</CFIF> 

<CFIF ("accept" IS "#mode#") OR ("reject" IS "#mode#")> 

<CFQUERY NAME="updateState" DATASOURCE="#dsn#"> 
update INCIDENTS 

set STATE_ID = #next_state# 
where ID = #Session.inc.id# 
</CFQUERY> 
</CFIF> 

<CFIF "" IS NOT "#my_bid#"> 

<CFQUERY NAME="getBid" DATASOURCE="#dsn#"> 

sel ect ID , ENT.SRV_ID , CORR_ID , FIRST_ACTION , COST_BID , START_TIME , END.TIME , 
VEN_COMMENTS from BIDS 

where ID = #my_bid# 

</CFQUERY> 
<CFELSE> 

<CFQ(JERY NAME="getBid" DATASOURCE="#dsn#"> 

Sel ect ID , ENT_SRV_ID , CORR.ID , FIRST_ACTION , COST_BID , START.TIME , END JTIME f 
VEN_COMMENTS from BIDS 

where rfq_id = #Session. rfq_id# 

</CFQUERY> 

<! — <><> Need to handle multiple bids here - this code only looks at the first 
— > 

<CFSET my_bid = #getBid.lD#> 
</CFIF> 

<! — Get the propman's correspondent id and other info — > 
<cfquery name= getPropMancorrid" DATASOURCE="#dsn#"> 
select PROPMAN_ID 
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from INCIDENTS 
where ID = #session.inc_id# 

</CFQUERY> 

<CFQUERY NAME= ,, getPropManlnfo" DATASOURCE="#dsn#"> 
Sel ect FIRST_NAME , MI , LAST_NAME , ENTITY^ NAME 
from USER_MRG 

where CORRESPONDENT JD = #getPropManCorrld.PROPMAhLID# 

</CFQUERY> 

<! — Add an event to this incident — > 
<CFSET my_now = #createOdbcDateTime(Now())#> 
<CFQUERY NAME="insertlncEvent n DATASOURCE="#dsn#"> 

insert into INC_EVENTS (INCIDENT_ID , EVENT_TYPE t REFERENCE_ID , WHO_ID , TIMESTP) 

values 

(#Session.inc_id#, '#event_label#\ #my_bid#, #getPropMancorrid.PROPMAN_lD#, 
#my_now#) 

</CFQUERY> 

<! — Add this vendor as a correspondent to the incident if the bid was accepted 
— > 

<! — Now get the bidder's info — > 

<CFIF "accept" IS u #mode# M > 

<! — this seems to not be referenced 

<cfquery NAME="getEntSrvinfo" DATASOURCE="#dsn#"> 

sel ect ENTITY_ID , SERVICE , ENTITY_NAME , FIRST_NAME , MI , LAST_NAME , PRIMARY__CONTACT 

from SERVICE_MRG 
where ENTITY.SERVICE.ID = #getBid-ENT_SRV_ID# 
</CFQUERY> 
> 

<CFQUERY NAME="insertincCorr" DATASOURCE="#dsn#"> 
insert into inc_corrs (incident_id , corr_id , role) 

values (#Session.inc_id#,#getBid.CORR_iD#, 'vendor') 
</CFQUERY> 
</CFIF> 

<! — determine what kind of bid this is — time or complete — > 
<CFIF "accept" IS "#mode#"> 

<CFIF (C" is "#getBid.COST_BID#") OR (0 is "#getBid.COST_BID#"))> 
<cfset msg_type = #Application.msg_time_bid_accepted#> 

<CFELSE> 

<CFSET msg_type = #Application.msg_complete_bid_accepted#> 
</CFIF> 

<CFELSEIF "reject" IS "#mode#"> 

<CFSET msg_type = #Application.msq_bid_rejected#> 
<CFELSEIF " comment s.only 1 ' IS "#mode# n > 

<CFSET msg_type = #Application.msg_generic#> 

</CFIF> 

<! — if there were comments, attach them to the db — > 
<cfinclude template = "add_inc_com_core. lpa H > 

<! — if the bid was accepted, then assign the vendor a PO number — > 
<cfif ("accept" IS "#mode#") and 

("" IS NOT #getBid.COST_BID#) AND (0 IS NOT #getBid.COST_BID#)> 
<CFIF "" IS "#po_num#"> 

<CFSET po_number = "default"> 

<! — <><> Need to generate real default po numbers here — > 
<CFELSE> 

<CFSET po_number = "#po_num#"> 

</CFIF> 

<CFQUERY NAME="updatePO" DATASOURCE="#dsn#"> 
update INC_VENDORS 
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set PO_NUM = '#po_number#' 
where incident__id = #Session.inc_id# and 

ENTITY_SERVICE_ID = #getBi d . ENT_SRV_ID# 
</CFQUERY> 

<CFQUERY NAME="addvenCorrld" DATASOURCE="#dsn# M > 
update incidents 

set VEN_CORR_ID = #getBi d . CORR_ID# 
where ID = #Session.inc_id# 
</CFQUERY> 
</CFIF> 

<! — now build up a message to send back to the vendor — > 
<cfquery NAME="getlncSummary M DATASOURCE="#dsn#"> 

Sel ect ID f STATUS , HEADLINE , DESCRIPTION , UNIT_ID , UNIT_NAME , 

SERVICE_ID , SERVICE_NAME , URGENCY from INC_SUMMARY 
where ID = #Session.inc_id# 
</CFQUERY> 

<! — send a message to the vendor describing the outcome — > 
<CFTRANSACTION> 

<cfquery NAME= M insertMessage" DATASOURCE="#dsn# H > 

insert into MESSAGES (TIMEL_CREATED i MSG—TEMPLATE f SENDER , SUBJECT) 

values (#my_now#,#msg_type#, #getPropManCorrid- propman_id#, 
'Your bid on incident #Session.inc_id# has been accepted") 
</CFQUERY> 

<CFQUERY NAME="getMessageld" DATASOURCE="#dsn#"> 
select max(iD) as max_id from MESSAGES 

</CFQUERY> 
</CFTRANSACTION> 

<CFSET my_message_id = #getMessageid.MAX_lD#> 

<! — Add the relevant components to the message — > 
<CFQUERY NAME= H insertMsgComponent n datasource= #dsn#"> 
insert into msg^components (msg_id f msg_element_id , val) 

val ues (#my_message_i d# , #Appl i cati on . msg_el_i nci dent_i d# , 1 #Sessi on . i nc_i d# ' ) 
</CFQUERY> 

<CFQUERY NAME="insertMsgComponent" DATASOURCE="#dsn#"> 
insert into msg_components (msGl_id,msg_element_id,val) 

val ues (#my_message_i d# , #Appl i cati on . msg_el_bi d_i d# , ' #myjri d# ' ) 

</CFQUERY> 

<cfif "" is not "#com_text#"> 

<CFQUERY NAME= M insertMsgComponent" DATASOURCE^'^dsn*'^ 
insert into MSG_COMPONENTS (MSG__ID,MSG_ELEMENT_ID, VAL) 

values (#my_message_i d# f #Appli cati on. msg_el .comment s#, '#com_text#') 

</CFQUERY> 
</CFIF> 

<cfset signature = "#getPropManinfo.FlRST_NAME# #get PropManinf o.Ml# 
#get PropManinf o . last_name# » #get PropManinf o . entity_name# > 
<CFIF "accept" IS "#mode# M > 

<CFOUTPUT> 

<CFSET subject = "Your bid on incident #Session.inc_id# has been accepted"> 
<CFSET body = 'You made a bid to service the following incident :<br> 

incident number : #Session.inc_id#<br> 
Location : #getlncSummary.UNIT_NAME#<br> 
Description : #getlncSummary.HEADLINE#<br> 
#getincSummary.DESCRlPTiON#<brxbr> 

Your bid has been accepted and you may begin servicing this job. when 
complete, please inform us by visiting 
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<a href="ven_dcUone.lpa?inc_id= ,, #Session.inc_id# >this page</a> to declare the 
as done. 

#com_text#<br> 

Regards f <br> 

#signature#<br> 

•> 

</CFOUTPUT> 

<CFELSEIF "reject" IS "#mode#"> 

<CFOUTPUT> 

<CFSET subject = "Your bid on incident #Session.inc_id# has been rejected"> 
<CFSET body = 'You made a bid to service the following incident :<br> 

incident number : #Session.inc_id#<br> 
Location : #getlncSummary.UNlT_NAME#<br> 
Description : #getlncSummary.HEADLlNE#<br> 
#getlncSummary . DESCRIPTION#<brxbr> 

Your bid has been rejected. 

#com_text#<br> 

Regards ,<br> 
#signature#<br> 

</CFOUTPUT> 

<CFELSEIF "comments_only" IS "^ode*'^ 

<CFOUTPUT> 

<CFSET subject = "Comments regarding your bid on incident #Session.inc_id#"> 
<CFSET body = 'You made a bid to service the following incident :<br> 

incident number : #Session.inc_id#<br> 
Location : #getIncSummary.UNlT_NAME#<br> 
Description : #getlncSummary.HEADLlNE#<br> 
#getincSummary . DESCRlPTiON#<brxbr> 

I have the following comments regarding this bid :<br> 

#com_text#<br> 

Please respond so that we can proceed with this job.<br> 

Regards, <br> 

#signature#<br> 

'> 

</CFOUTPUT> 
</CFIF> 

<! — call the send_msg template to process the message — > 
<CFSET my_recipient_id = "#getBid.CORR_lD#"> 
<CFINCLUDE TEMPLATE="send_jnsg . 1 pa"> 

<CFSET thanks.text = "#thanks_text# #user_text#"> 

<CFIF "NO" is #delivered#> 

<CFSET thanks_text = '#thanks_text#<font color="red">WARNlNG - could not find 
channel available to deliver to recipient .</font>'> 

<CFABORT> 
</CFIF> 
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< ! — <scri pt 1 anguage=" JavaScri pt "> 
function lsDefineNew(myField, neWType) { 

sel ectedval ue = myFi el d . opti ons [myFi el d . sel ectedlndex] . val ue ; 
if (0 > sel ectedval ue) { 

self .location = "add_new_constant .lpa?type=" + newType 
+ "&backto=ven_reg.lpa"; 
returh(false) ; 



</script> — > 

<html> 

<head> 

<ti tl e>Landport regi strati on</ti tl e> 
<META HTTP-EQUIV="expires" CONTENT="0"> 

</head> 

<CFSET Sessi on . bgcol or= n whi te"> 

<body bgcolor="<CFOUTPUT>#Session.bgcolor#</CFOUTPUT>"> 

<h4xfont face="Arial M >Landport user registration form</fontx/h4> 

<HR> 

<pxfont face="Arial M >welcome to Landport. This form will accept 
all of the information required to become a Landport member. 
</fontx/p> 

<form name= M mainform" method="POST" action= ,, reg_thanks.lpa"> 
<table border="0" cellspacing="l" cellpadding=*2" width= n 600 M > 

<trxtd col span=2xf ont face="Arial ,, xb>Tell us about 
your sel f </bx/f ontx/tdx/t r> 

<trxtdxfont face="Arial">First Name</fontx/td> 

<tdxinput name= M first_name" type="text" size="20"x/tdx/tr> 
<trxtdxfont face="Arial ">Middle lnitial</fontx/td> 

<tdxinput name="mi" type="text M size="l M x/tdx/tr> 
<trxtdxfont face="Arial">Last Name</fontx/td> 

<tdxinput name="last_name" type="text" si2e="20"x/tdx/tr> 
<trxtdxfont face="Arial">Company Name</fontx/td> 

<tdxinput name="entity_name" type="text" size="20"x/tdx/tr> 
<trxtdxfont face^'Arial'Vstreet Address</fontx/td> 

<tdxinput name= M addressl M type= M text" size= M 30"x/tdx/tr> 
<t rxtd>&nbsp ; </td> 

<tdxinput name= M address2" type= M text" size= ,, 30"x/tdx/tr> 
<t rxtdxf ont f ace="Ari al ">Ci ty</f ontx/td> 

<tdxinput name="city" type="text" size="20"x/tdx/tr> 
<t rxtdxf ont face="Arial ">State</fontx/td> 

<tdxinput name="city" type="text" size="2"x/tdx/tr> 
<t rxtdxf ont f ace="Ari al ">zi p</f ontx/td> 

<tdxinput name="zip" type="text" size="10 M x/tdx/tr> 
<trxtdxfont face="Arial ,, >Telephone number </fontx/td> 

<tdxinput name="phone" type= M text" size="20"x/tdx/tr> 
<t rxtdxf ont face="Arial">Fax number</fontx/td> 

<tdxinput name="fax" type="text" size="20"x/tdx/tr> 
<t rxtdxf ont face="Arial">e-mail address</fontx/td> 

<tdxinput name="fax" type="text" size="20"x/tdx/tr> 
<t rxtd col span=2>&nbsp ; </tdx/t r> 

<trxtdxfont face="Arial ">Choose a user name</fontx/td> 

<tdxinput name= M user_name" type="text" size="20"x/tdx/tr> 

<trxtdxfont face= ,, Arial ,, >Choose a password</fontx/td> 

<tdxinput name="passwordl" type="password" size="20"x/tdx/tr> 
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<trxtdxfont f ace="Ari al ">Retype your password</fontx/td> 

<tdxinput name="password2 T ' type="password" size="20"x/tdx/tr> 
<trxtd colspan=2> </tdx/tr> 

<trxtdxfont face="Arial">How would you like to register ?</fontx/td> 
<tdxf ont f ace="Ari al "> 
<input type=" radio" name="ent_type H value="vendor" checked>as a vendor<br> 
<input type= n radio" name="ent_type" value=" tenant ">as a tenant<br> 
<input type=" radio" name= ,, ent_type" value="propman">as a property manager 
</f ontx/tdx/ 1 r> 
<CFQUERY NAME="getServices" DATASOURCE="#dsn#"> 

select ID , NAME from SERVICE_NAMES 
</CFQUERY> 

<CFIF #GetServices.RecordCount# is not 0> 
<trxtd colspan="2"> 

<font face= M Arial">lf you are a vendor, please indicate which services you 
provide (check all that apply)</font> 
<CFSET col_num = 0> 
<CFSET service_serial = 0> 
<table cellspacing^"!" border="0"> 
<CFLOOP QUERY="get5ervices"> 

<CFSET service_serial = #service_serial# + 1> 
<CFIF #col_num# is 0> 
<tr> 

<CFELSEIF #col_num# is 4> 
</trxtr> 

<CFSET col_num = 0> 
</CFIF> 

<CFSET col_num = #col_num# + 1> 

<CFOUTPUT> 

<td width="20%" bgcolor=="80FF80"xfont face="Arial "xinput type="checkbox" 
name= l, service_#service_serial#" value = "#getServices.lD#"> 
#getservi ces . NAME#</f ontx/td> 

</CFOUTPUT> 
</CFLOOP> 

</tr> 

<trxtd colspan="4"xa 
h ref="add_new_constant . 1 pa?type=servi ce&backto=reg . 1 pa"> 

<font face="Arial">Add a new service type</fontx/tdx/tr> 
</table> 
</tdx/tr> 
</CFIF> 

</table> 

<pxinput type="submit" value="Register" name^'submit 1 ^ </p> 
</form> 

<HR> 

<p> <img src="logo.GiF" alt="logo.GlF"x/p> 
</body> 
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<! — Copyright 1999,2000 LandPort All rights reserved — > 
<HTML> 

<HEADxTlTLE>Regi st rati on Recei ved</TlTLE> 

</HEAD> 
<BODY> 

<CFSET my_now = #createodbcDateTime(Now())#> 

<! — 1) Verify that the user's name and password are OK — > 

<CFQUERY NAME= DoeSUSerExist" DATASOURCE= '#dsn#"> 

select 'x' from USERS where USER_NAME= , #FORM.user_name# l 

</CFQUERY> 

<CFIF 0 IS NOT #DoesuserExist.RecordCount#> 

<font face="Arial">Sorry l the user name you have chosen, <CFOUTPUTxfont 
color="green"> 

"#FORM . user_name#"</f ontx/CFOUTPUT> i s 

already being used by another Landport user. Please use the 'Back' button on 
your browser to return to the application form and select another user 
name . </f ont> 

<CFABORT> 
</CFIF> 

<CFIF "#FORM.passwordl#" IS NOT "#FORM. password2#"> 

<font face="Arial"xb>The passwords that you typed in do not match. </bxbr> 
Please use the 'Back' button on 

your browser to return to the application form and retype both 
passwords and ensure that they are exactly the same.</font> 

<CFABORT> 
</CFIF> 

<! — 2) Generate a correspondent record — > 
<CFTRANSACTION> 
, <CFQUERY NAME="insertCorrespondent" DATASOURCE="#dsn#"> 

insert into CORRESPONDENTS (FIRST_NAME , MI f LAST_NAME f CORRESPONDENT_TYPE f ENTITY_ID) 
values (^FORM.first.name*' , '#FORM.mi#' , ^FORM.lastjiame*' ( 'person 1 f 0) 
</CFQUERY> 

<CFQUERY NAME="getcorrid" DATASOURCE="#dsn#"> 
select max(iD) as max_id from correspondents 

</CFQUERY> 
</CFTRANSACTION> 

<CFSET correspondent^ d = "#getCorrld.MAX_lD#"> 

<! — 3) Generate a user's record — > 
<CFQUERY NAME="insertUser n DATASOURCE="#dsn#"> 

insert into users (correspondent_id , user_name f pw) 

values (#correspondentL.id# f '#FORM.user_name#' , '#FORM.passwordl#') 

</CFQUERY> 

<! — 4) Generate the corrsepondent's channels — > 

<! — 5) Generate the entity — > 

<! — 6) Add services to this entity — > 

the line 

<! — now get the vendor (s) numbers — > 

<! — <><> Note that the default contact priority is the same as it appears 
on the previous form. This should be changed so that the propman 
has the option to choose the order. — > 

<CFSET vendors_selected = 0> 

<CFLOOP iNDEX="cur_vendor" from= ,, 1 m TO="#num_vendors#"> 
<cfif #isDefined("vendor_#cur_vendor#")#> 

<CFSET entity_service_id = #Evaluate( ,, vendor_#cur_vendor#")#> 
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<CFSET vendors_selected = #vendors_selected# + 1> 
<cfquery NAME="insertincven" DATASOURCE="#dsn#"> 
insert into INCJVENDORS 
(INCIDENT_ID , ENTITY_SERVICE_ID , CONTACT_PRIORITY , STATE) 

val ues (#Sessi on . i nc_i d# , #enti ty_servi ce_i d# , #cu r_vendor# , ' hoi d ' ) 

</CFQUERY> 
</CFIF> 
</CFLOOP> 

<! — <><> insert check to be sure that at least one vendor was selected — > 

<! — Add the Propman's instructions — > 
<CFSET comment_type = "pm_ven_instruct"> 
<CFSET com_text = "#FORM.instructions#"> 

<CFINCLUDE TEMPLATE="adcLinc_conL.core.lpa"> <!--- inserts data 
<! — Create the RFQ record — > 

<! — <><> timejlimit should comprehend the job completion time too — > 

<CFTRANSACTION> 

<CFQUERY NAME= n insertRfq" DATASOURCE= M #dsn# H > 

insert into RFQS (IN(LJD,COSTJLIMIT,TIME_LIMIT > 
TIME_UNITS , CONTACT„STRATEGY, 

SERIAL.TIMEOUT , RECS_TO_FORWARD , RESPONSE_REQ , F AST_TRACK_B I D , TIMESTP) 
val ues (#Sessi on . i nc_i d# , #FORM . costal i mi t# , #FORM . ti me_l i mi t# , 
, #FORM.time_units# t , ^FORM.contact.strategy* 1 , 

^FORM.serial.timeout*' , '#FORM. recs_to_forward#' t '#FORM. response_req#' , 
1 #FORM . f ast_t rack^bi d# 1 , #my_now#) 

</CFQUERY> 

<CFQUERY NAME^getRfqld" DATASOURCE="#dsn#"> 

select max(iD) as max_ID from RFQS 

</CFQUERY> 
</CFTRANSACTION> 

<CFSET rfq_id = "#getRfqld.MAX_ID#"> 

<! — Add an event to this incident - recognized by propman. Note 
that we don't jump to rfq_sent just yet - that is handled after the 
rfq is recorded. rfq_sent means that there is an rfq out there and 
pending respose. We haven't sent anything yet. — > 
<CFQUERY NAME="insertlncEvent" DATASOURCE="#dsn#"> 

insert into inc^events (incident.id.event.type.reference.id.who.id.timestp) 
val ues 

(#Sessi on . i nc_i d# , ' recogni zed_by_propman 1 , #rf q_i d# , 
#Sessi on . correspondents d# f #my_now#) 
</CFQUERY> 

<! — update incident record to change state to recognized_by_propman — > 
<CFQUERY NAME="updateState" DATASOURCE="#dsn#"> 
update INCIDENTS 

set STATE_ID = #Application.inc_state_recognized_by_propman# 
where ID = #Session.inc_id# 

</CFQUERY> 

<CFSET thanks.text = "Your request for quote has been processed and sent to the 
vendor(s)<br>"> 

<CFSET title = "RFQ processed"> 
<CFSET back = "pm_service_sum.lpa"> 

<CFIF "serial" is not #FORM. contacts tr at egy#> 

<CFSET thanks.text = '#thanks_text#<font color="red"xCFOUTPUT>WARNiNG : contact 
strategy #FORM.contact_strategy# is not yet implemented, using the serial strategy 
i nstead . <brx/CFOUTPUTx/f ont> ' > 

</CFIF> 

<! — now send the message out to the first vendor — > 
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<CFINCLUDE TEMPLATE=" rf q2next_ven . 1 pa > 

<cfinclude temp LATE= M thanks - 1 pa"> 
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<! — this forwards a given RFQ to the next vendor — > 
<! — It is important to note that this code is expected 

to execute outside of a cfm session, so no session 

or FORM variables should be referenced. 

Returns : 

found_next_vendor - yes if successful in sending to next vendor 
Copyright 2000 Landport f inc. 

— > 

<! — <><> some work needs to be done to pay attention to the 

RECS_TO_FORWARD field. The current implementation forewards all — > 

<CFPARAM NAME= ,, rfq_id"> 

<! — pull up the RFQ record — > 

<CFQUERY NAME="getRfq" DATASOURCE="#dsn#"> 
S el ect INC-ID , COST_LIMIT , TIME_LIMIT , 

TIME_UNITS , RECS_TO_FORWARD , RESPONSE_REQ , 

SERIAI TIMEOUT » CONTACT.STRATEGY from RFQS 

where ID = #rfq_id# 
</CFQUERY> 

<! — <><> need to abort if time_limit + creati on_time exceeds nowQ — > 



<CFSET at__end_of_vendors = 0> 

<CFLOOP CONDITION="0 IS #at_end_of_vendors#"> 

<! — get the next vendor off of the queue — > 

<! — <><> Need to fix this query so it only selects one record — > 
<CFQUERY NAME="getNextVen" DATASOURCE="#dsn#"> 

Select ID,ENTITY_SERVICE_ID from INCVEN_Q 

where INCIDENT_ID = #getRf q . INC_ID# and STATE = 'hold' 

</CFQUERY> 

<! — If we are contacting vendors serially, set at_end_of .vendors 

to halt this loop after the first vendor — > 
<CFIF "serial" is "#getRfq.CONTACT_STRATEGY#"> 

<CFSET at_end_of_vendors = 1> 
</CFIF> 

<CFIF 0 GE #getNextven.RecordCount#> 

<! — <font color="red H >There are no more vendors to choose from !</font> 
<CFSET at_end_of .vendors = 1> 
<CFIF "serial" is "#getRf q . CONTACT_STRATEGY#"> 
<CFSET found_next_vendor = "NO"> 

</CFIF> 
<CFELSE> 

<! — calculate the expiration time — > 

<CFSET expiry_time = #DateAdd("n", getRfq . SERIAL_TIME0UT, Now())#> 

<! — change the state of this vendor's RFQ and give it a timeout — > 
<CFQUERY NAME="updatelncVen" DATASOURCE="#dsn#"> 
update INCVENDORS 
set state = 'open 1 , 

EXPIRATION = #expiry_time# 
where ID = #getNextVen . ID# 
</CFQUERY> 

<CFSET entity_service„id = "#getNextVen . ENTITY_SERVICE_ID#"> 

<! — now that we know the vendor, figure out who to contact — > 
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<CFQUERY NAME="getvendors" DATASOURCE="#dsn#"> 

select ENTITY_NAME l PRIMARY_CONTACT,SERVICE_CONTACT, SERVICE from SERVICE^MRG 

where entity_SERVICE_ID = #entity_service_id# 
</CFQUERY> 

<CFIF #getVendors.SERVICE_CONTACT# GT 0> 

<CFSET my.reci pi ent_i d = #getvendors.SERVlCE_CONTACT#> 

<CFELSE> 

<CFSET my_recipient_id = #getVendors . PRlMARY_CONTACT#> 

</CFIF> 

<! — Get the propman's info for the return address of this message — > 
<CFQUERY name= 'getincSummary" datasourc e= 11 #d s n# " > 

sel ect ID , STATUS , HEADLINE , DESCRIPTION , UNIT_ID , UNIT_NAME , SERVICE_ID , 

SERVICE_NAME, URGENCY, PROPMAN_ID from IN (^SUMMARY 
where ID = #getRfq.INC_ID# 
</CFQUERY> 

<! — Create the RFQ message — > 

<CFSET my_now = #createOdbcDateTime(Now())#> 

<CFTRANSACTION> 

<CFQUERY NAME= M insertMessage" DATASOURCE="#dsn#"> 

insert into MESSAGES (TIME„CREATED , MSG__TEMPLATE , SENDER , SUB J ECT) 

val ues (#my_now# , #Appl i cati on . msg_rf q# , #getincSummary . propman_id# , 
'Request for quote on incident #getRf q . INC_ID# 1 ) 

</CFQUERY> 

<CFQUERY NAME="getMessageId" DATASOURCE="#dsn#"> 
select max(lD) as max^id from messages 

</CFQUERY> 
</CFTRANSACTION> 

<CFSET my_message_id = #getMessageId.MAX_iD#> 

<! — Add the relevant components to the message — > 
<cfquery NAME^'insertMsgcomponent" datasource= #dsn#"> 

insert into MSG_COMPONENTS (MSGJD , MSG_ELEMENT_ID , VAL) 

values (#my_message_id# f #Application.msg_el.rfq_id# f '#rfq_id# ! ) 

</CFQUERY> 

<! — we need to add the entity_service__id here because some correspondents 

may handle more than one services. This will disambiguate — > 
<CFQUERY NAME^'insertMsgComponent" DATASOURCE="#dsn#"> 

insert into MSG.COMPONENTS (MSG_ID , MSG_ELEMENT_ID , VAL) 
values 

(#my_jnessage_i d# , #Appl i cati on . msg_el_enti ty_servi ce_i d# f ' #enti ty_servi ce_i d# ' ) 
</CFQUERY> 

<! — Get the propman's info — > 

<CFQUERY NAME= getPropmanlnfo" DATASOURCE="#dsn#"> 

Select FIRST_NAME,MI,UVST_NAME,ENTITY_NAME from USER_MRG 
where CORRES PONDENT_lD = #getlncSummary.PROPMAN_ID# 
</CFQUERY> 

<CFQUERY NAME= ,, getlncCreation" DATASOURCE="#dsn#"> 

select timestp from incevents 

where INCIDENT„ID = #getRf q . INC_ID# and 
event_type = 'create' 
</CFQUERY> 

<CFSET create_time = "#DateFormat(getincCreation. timestp, Application. lp_date_mask)# 
#Ti meFormat (getinccreati on . timestp , Appl i cati on . 1 p_t i me_mask) # M > 

<CFSET subject = "Request for quote"> 

<CFSET body = '<PRE>This is a request for a quote to service the following job : 

Incident number : #getRf q . INC_ID# 
Location : #getincSummary.UNlT_NAME# 
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Service type : #getvendors. service* 
Description : #getinc5ummary. HEADLINE* 
#getlncsummary. description* 

we have a purchase order limit of $#getRfq-COST_LIMlT# on this job 
and would like to have it serviced within 
#getRfq.TlME_LIMIT# #getRfq.TIME_UNlTS* from #create_time#. 

<A HREF="#Appl i cati on . externa rl_base#/ven_rf q . 1 pa?i nc_i d=*getRf q . INC_ID#"> 
Click here to accept or decline this offer ,</A> 

Regards, 

#getPropmanlnf o . FIRST_NAME# *get Propmaninf o . MI* #getPropmanlnf o . LAST_NAME* 

</PRE> 

'> 

<! — call the send_msg template to process the message — > 
<CFINCLUDE TEMPLATE="send_msg - 1 pa"> 

<CFIF "NO" is #delivered*> 

<CFSET thanks_text = '#thanks_text*<font color="red">WARNING - could not find a 
channel available to deliver to recipient .</font>'> 

<! — <><> Need to insert some error logging here to correct — > 

<CFELSE> 

<! — update incident record to change state to rfq_sent — > 
<CFQUERY NAME="updatestate" DATASOURCE="#dsn#"> 
update INCIDENTS 

set state_id = #Appli cation. inc_state_rfq_sent* 
where ID = #getRf q . INC_ID# 

</CFQUERY> 
</CFIF> 

<CFSET found_next_vendor = "YES M > 
</CFiF> <! — have we found the next vendor in the INC_VEN_Q ? — > 

</CFLOOP> <! — looping with vendors — > 
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<! — send_msg.lpa - this template sends a message to a recipient. 
The following variables are expected : 

#my_message_id# - the ID of a message already formed in the DB 
#my_reci pi ent_i d# - the CORRESPONDENTS^ of the intended recipient 
#subject# - the message's subject line 
#body# - the body of the message 

Outputs of this template are : 
#delivered# will be either YES or NO depending on whether a channel 
was found for delivery 

Copyright 2000, Landport, Inc. 

— > 

<CFPARAM NAME="my_message_id"> 
<CFPARAM NAME= M my_recipient_id"> 

<CFPARAM NAME=" Subjects 
<CFPARAM NAME="body H > 

<CFSET my_now = #createOdbcDateTime(Now())#> 

<! — record who should receive this message — > 

<CFTRANSACTION> 

<CFQUERY NAME="insertMsgRecipient" DATASOURCE="#dsn#"> 
insert into MSGLRECIPIENTS (MSG_ID,RECIPIENT_ID) 
val ues (#my_message_i d# , #my_reci pi ent_i d#) 

</CFQUERY> 

<CFQUERY NAME="getMsgReCld" DATASOU RC E= 1 1 #d S n# " > 

select max(iD) as max^id from msg_recipients 

</CFQUERY> 
</CFTRANSACTION> 

<! — ooo the following section contains the code that actually 
forwards the message to the recipients and records the results 
in the database. This should probably be moved to a daemon 
to be handled in a more distributed fashion — > 

<CFSET delivered = "NO"> 

<! — By default, the message has been delivered in the LandPort system 
<CFQUERY NAME="getRecipLandport" DATASOURCE="#dsn#"> 
select corr_CHAN_id from corr_info 
where ID = #my_recipient_id# and 

name = 'user_name' and channel_name = 'landport' 
</cfquery> 

<CFIF #getRecipLandport.RecordCount# IS not 0> 

<CFQUERY NAME="insertMsgCorrChan" DATASOURCE="#dsn#"> 

insert into MSG_CORR_CHANS (MSGu.REC_ID,CORR_CHANLID,SENT_TIME) 
val ues (#getMsgRecld . MAX_ID# , #getReci pLandport . C0RR_CHAN_ID# t 
#my_now#) 

</CFQUERY> 

<CFSET delivered = "yes"> 

</CFIF> 

<! — send the message to the recipient's e-mail addresses — > 
<CFQUERY NAME="getRecipEmail" DATASOURCE="#dsn#"> 
select val as ej4AIL,corr_chan_id from corr^info 
where ID = #my_recipient_id# and 

name = 'e_maiV and channel_name = 'e_maiV 
</cfquery> 

<CFIF #getRecipEmail .RecordCount* IS NOT 0> 

<CFQUERY NAME="insertMsgCorrChan M DATASOU RCE= 11 #dsn# n > 

insert into MSG_CORR_CHANS (MSGJ*EC_ID , CORR_CHAN_ID , SENT_TIME) 
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val ties (#getMsgRecid . max_id# , #get Reci pEmai 1 . corr_chan_id# , 
#my_now#) 

</CFQUERY> 

<! — <>o perhaps the from att should be this correspondent — > 
<CFMAIL QUERY="getRecipEmail" 

TO="#E_MAIL#" 
FROM="msqsvr@l andport . com" 
SUB J ECT= rt #sub j ect#" 

TYPE= "HTML"> 

#body# 

</CFMAIL> 

<CFSET delivered = "yes h > 

</CFIF> 
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<CFPARAM NAME="service_id"> 
<CFPARAM NAME="service_name n > 

<CFPARAM NAME="unit_id"> 

<CFPARAM NAME="unit_name M > 

<CFQUERY NAME^'getServiceHist" DATASOURCE="#dsn# n > 

Select ID, HEADLINE > VEN_CORR_ID,LAST_ACTION from INC_SUMMARY 

where SERVICE_ID = #service_id# and 

UNIT_ID = #unit_id# and 

ID <> #Session.inc_id# 
order by LAST_ACTI0N 
</CFQUERY> 

<CFIF #getServiceHist.RecordCount# is 0> 

<CFOUTPUT> 

There has been no prior #service_name# service on #unit_name#<br> 

</CFOUTPUT> 
<CFELSE> 

<h3xfont face="Arial">Service history :</fontx/h3> 

<table border="0" widths" 100%" cellspacing="l" cenpadding="2"> 
<tr> 

<td width="10%" bgcolor= ,, #80FF00 ,, xh3xfont face="Arial ">lnc. Num.</fontx/h3> 
</td> 

<td width="205r bgcolor="#80FF00"xh3xfont face= ,, Arial">Time</fontx/h3> 
</td> 

<td width="20%" bgcolor="#80FF00"xh3xfont face="Arial">who</fontx/h3> 
</td> 

<td width= ,, 60%" bgcolor= I, #80FF00 ,, xh3xfont face="Arial">What</fontx/h3> 
</td> 
</tr> 

<CFLOOP QUERY="getServiceHist"> 
<tr> 

<CFIF "" IS #ge t Servi ceHi st.VEN_CORR_ID#> 
<CFSET vendor_name = "unknown"> 

<CFELSE> 

<CFQUERY NAME="getvendorName" DATASOURCE="#dsn#"> 

select ENTITY_NAME from USER_MRG 

where CORRESPONDENT-ID = #getServiceHist.VENLCORR_ID# 

</CFQUERY> 

<CFIF #getVendorName.RecordCount# IS 0> 
<CFSET vendor_name = M unknown"> 

<CFELSE> 

<CFSET vendor_name = #getvendorName.ENTlTY_NAME#> 

</CFIF> 
</CFIF> 
<CFOUTPUT> 

<td width= M 10%" bgcolor="80FF80"xfont face="Arial "xsmall> 
<a href = M ten_inc.lpa?inc_id=#getServiceHist.lD#"> 
#get Servi ceHi st . lD#</a></smallx/fontx/td> 
<td width="20%" bgcolor="80FF80"xfont 
f ace="Ari al "xsmal 1 >#getServi ceHi st - LAST_jvcriON#</smal 1 x/f ontx/td> 

<td width="205T bgcolor="80FF80"xfont 
f ace="Ari al "xsmal 1 >#vendor_name#</smal 1 x/f ontx/td> 

<td width="70%" bgcolor="80FF80"xfont face="Arial"xsman> 
<a href="ten_i nc . 1 pa?i nc_i d=#getServi ceHi st . ID#"> 
#getservi ceHi st . HEADLINE#</ ax/smal 1 x/f ontx/td> 
</CFOUTPUT> 
</tr> 
</CFLOOP> 

</tabl e> 
</CFIF> 
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<! — include template to set up several session variables to be 
used within the Landport system. These are intended to be read 
only variables. 



Copyright 2000, Landport, inc. 



--> 



<CFPARAM NAME="Sessi on . user_name"> 
<CFPARAM NAME="Sessi on. correspondents d"> 

<!— <CFIF not( isDefinedC'Session. initialized") )> 
<CFSET Session, initiali zed- 1> — > 
<CFQUERY NAME="getUserMrg" DATASOURCE="#dsn#"> 

select * from userjurg where user_name = ^Session.user.name* 1 

</CFQUERY> 

<CFQUERY NAME= ,, getCorrlnfo" DATASOURCE= H #dsn#"> 
select * from CORR_lNFO where 

ID = #Sessi on. correspondent-id* 

</CFQUERY> 

<! — defaults if no record found — > 

<CFSET Session. addressl = M no mailing address"> 

<CFSET Session. city = ""> 

<CFSET session. state = ""> 

<CFSET Session.zip = ""> 

<CFSET Session. of fice_phone = ""> 

<CFSET Session.email_addr = ,,M > 

<CFSET Session.entity_name = ,,M > 

<CFLOOP QUERY="getCorrlnfo"> 
<CFIF #NAME# is "addressl"> 

<CFSET Session. addressl = #VAL#> 

</CFIF> 

<CFIF #NAME# is "cityV 

<CFSET session. city = #VAL#> 

</CFIF> 

<CFIF #NAME# is "state M > 

<CFSET Session. state = #val#> 
</CFIF> 

<CFIF #NAME# is "zip"> 

<CFSET Session.zip = #VAL#> 
</CFIF> 

<CFIF #NAME# is "number"> 

<CFSET session. of fice_phone = #val#> 

</CFIF> 

<CFIF #NAME# is "e_mail"> 

<CFSET Session.email_addr = #VAL#> 

</CFIF> 
</CFLOOP> 

<CFSET Session.fi rst_name = #getUserMrg . FIRST_NAME#> 
<CFSET Session. mi = #getuserMrg.Ml#> 
<CFSET session.last_name = #getuserMrg . last_name#> 
<CFSET Session.entity_name = #getuserMrg.ENTlTY_NAME#> 
<!— </CFIF>-~> 
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<cfif #isDefined("URL.override")#> 

<CFSET url_tack_on = "&override=#URL.override#"> 

<CFSET heading = "override tenant's approval of vendor work - incident n > 
<CFELSE> 

<CFSET url_tack_on = ""> 

<CFSET heading = "Approve of vendor work - incident"> 

</CFIF> 



<CFPARAM NAME="URL.inc_id"> 

<CFSET Session.inc_id = "#URL.inc_id#"> 
<CFINCLUDE TEMPLATE="i ncjiead . 1 pa"> 

<pxfont face="Arial "><sman>Comments regarding this incident : </small></fontx/p> 
<CFOUTPUT> 

<form method= ,, POST u action="apv_work_thanks- lpa?role=tenant&#url_tack.on#"> 

</CFOUTPUT> 

<pxtextarea 

rows="5" name="comments" cols="56"x/textareaxbr> 
<input type="submit" va1ue="Approved" name="approve"> 
<input type=" submit" value="Not approved" name="disapprove"x/p> 
</form> 

<HR> 

<CFSET datejiuman = DateFormat(Now() , App"lication.lp_date_mask)> 
<CFOUTPUT> 

<p>Date this page was created: #date_human#</p> 
</CFOUTPUT> 

<pximg src="logo.GIF" alt="logo.GIF"x/p> 
</body> 
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<CFPARAM NAME="URL . i nc_i d"> 

<CFSET Session.inc.id = "#URL.inc_id#"> 

<CFINCLUDE TEMPLATE="i ncjiead . 1 pa M > 

<pxfont face="Arial"><sman>Add a comment to this incident : </sman></fontx/p> 

<form met hod=" POST" action="adcLinc_conuthanks.lpa"> 
<pxtextarea 

rows="5" name=" comment" cols="56"></textareaxbr> 
<input type="submit" value="Submit your comment" name=="submit"x/p> 
</form> 

<pxfont face="Aria1"> <a href="ten_pend_req.lpa">View active 
inci dents</ax/fontx/p> 

<HR> 

<CFSET date_human = DateFormat(Now() , App1ication.lp_date_mask)> 

<CFOUTPUT> 

<p>Date this page was created: #date_human#</p> 

</CFOUTPUT> 

<pximg src="logo.GIF" a1t="1ogo.GlF"x/p> 
</body> 
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<html> 
<head> 

<meta HTTP-EQUlv="pragma" CONTENT="no-cache n > 
<meta http-equi v=expi res content=0> 

</HEAD> 

<title>Service Requests</title> 
</head> 

<body bgcol or="<CFOUTPUT>#Sessi on . bgcol or#</CFOUTPUT> H > 

<h4xfont face= t, Arial ,, >Santa Clara Land Company</fontx/h4> 

<hl><font face="Arial ">List of Service Requests From Tenant :</fontx/hl> 

<CFINCLUDE TEMPLATE="check_COok . 1 pa"> 

<cfinclude TEMPLATE= n cor r_i nf o_tabl e . 1 pa"> 

<CFIF #isDefined("URL-state")#> 
<CFSET inc_type = M #URL.state#"> 
<CFQUERY NAME="getincSummary" DATASOURCE= H #dsn#"> 
SELECT * from INC_SUMMARY 

where id in (select incident_id from inc_CORRS 

where (ROLE = "tenant" or ROLE = 'reporter') and CORRJD = 
#Sessi on . cor respondent^ d# 

and STATUS = '#URL. state* ') 
order by ID; 
</CFQUERY> 
<CFELSE> 

<CFSET inc_type = "open"> 

<CFQUERY NAME="getincSummary" DATASOURCE="#dsn#"> 

SELECT * from INCL.SUMMARY 

where ID in (select incident_id from INC-CORRS 

where (ROLE = 'tenant' or ROLE = 'reporter') and CORR^ID = 
#Sessi on . correspondents d# 

and STATUS <> 'retired') 
order by ID; 
</CFQUERY> 
</CFIF> 

<! — Note that role=reporter should eventually go away > 

<! — 

<CFQUERY NAME="getincSummary n DATASOURCE="#dsn#"> 
SELECT * from INC^SUMMARY 

where ID in (select incident_id from inc_corrs 

where (ROLE = 'tenant' or ROLE = 'reporter') and C0RR_ID = 

#Session . correspondent^ d# 
#state_filter#) 
order by ID; 

</CFQUERY> 

> 

<HR> 

<hlxf ont f ace="Ari al "><CFOUTPUT>#i nc_type#</CFOUTPUT> i nci dents</f ontx/hl> 
<table border="0" width="100%" cellspacing="l" cellpadding="2"> 

<CFOUTPUT> 
<tr> 

<td bgcol or="#Sessi on. header_color#" ><h3xfont face="Arial">incident 
number</fontx/h3> 
</td> 

<td width="14%" bgcol or="#sessi on. header_color#" xfont 
face= M Arial "><h3>Who</h3> 
</fontx/td> 

<td bgcol or="#Sessi on. header_color#" xfont face="Arial M xh3>Urgency</h3> 
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</fontx/td> 

<td bgcol or="#Sessi on . header_col or#" ><h3xf ont f ace="Ari al ">Status</f ontx/h3> 
</td> 

<td width="25%" bgcol or="#Sessi on. header_color#" xh3xfont 
f ace="Ari al ">Descri pti on</f ontx/h3> 
</td> 

<td width="25%" bgcol or="#Sessi on. header_color#" xh3xfont face= M Arial n >Last 
Acti on</f ontx/h3> 
</td> 

<td width="25%" bgcol or="#Sessi on. header_color#" xfont face="Arial"xh3>Action 
required</h3> 

</fontx/td> 
</tr> 
</CFOUTPUT> 

<CFSET last_inc_id = "-1"> <! — Used for eliminating duplicates — > 
<CFSET line_color = "#Application.line_color_b_tenant# > 
<CFLOOP QUERY="getincSummary"> 

<CFIF #last_inc_id# IS not #getlncSummary.iD#> 

<CFSET last_inc_id = #getlncSummary.lD#> 

<CFIF "#line_color#" is "#Application.line_color_a_tenant#"> 

<CFSET line_color = n #Appiication.line_color_b_tenant#"> 
<CFELSE> 

<CFSET line_color = "#Application.line_color_a_tenant#"> 

</CFIF> 

<CFQUERY NAME="getReporterEmail" DATASOURCE="#dsn#"> 
select val from corr_channel_rpt 
where name = 'e_maiV and correspondent_id = 
#getlncsummary . reporting__party_id# 
</CFQUERY> 
<CFOUTPUT> 
<tr> 

<td bgcol or= M #line_color#" ><a 
href ="ten_i nc . 1 pa?i nc_i d=#getlncSummary . lD# n xsmal 1 xfont 
f ace="Ari al >#getlncsummary . iD#</f ontx/smal 1 ></ax/td> 
<td width="14% ff bgcol or="#line_color#" xfont face="Arial"xsmallxa 
href="mailto:#getReporterEmail . VAL#">#getincSummary . r_first_name# 

#getlncSummary . R__mi# #getincSummary . R_LAST_NAME#</ax/smal lx/f ontx/td> 

<td bgcol or="#l i ne_col or#"xtabl ext r> 
<td 

<CFIF "emergency" IS #getincSummary.URGENCY#> 
bgcol or=" red" 

<CFSET urge = "#getlncSummary . URGENCY#"> 
<CFELSEIF "urgent" IS #getincSummary.URGENCY#> 
bgcol or="orange" 

<CFSET urge = "#getincSummary.URGENCY#"> 
<CFELSEIF "asap" IS #getincSummary.URGENCY#> 
bgcol or="yel low" 

<CFSET urge = "#getincsummary.URGENCY#"> 
<CFELSEIF "nap" IS #getlncSummary.URGENCY#> 
bgcol or="#l i ne_col or#" 
<CFSET urge = ""> 

<CFELSE> 

<CFSET urge = "unknown "> 
</CFIF> 
> 

<f ont f ace="Ari al "xsmal 1 >#u rge#</smal 1 x/f ontx/td> 
</trx/tabl ex/td> 

<td bgcol or="#line_color#" xsmallxfont 
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f ace=" Ari al ">#getincSummary . STATUS#</f ontx/smal 1 ></td> 

<td width= 25%" bgcolor="#line_color#" xsmallxfont 
face="Arial ,, >#getincSummary.HEADLlNE#</fontx/sman></td> 

<td width=*25%" bgcolor="#line_color#" xsmallxfont 
f ace="Ari al ">#getlncSummary . LAST_ACTlON#</f ontx/smal 1 ></td> 

<td width=*25%" bgcolor="#line_color#" xsmallxfont face="Arial M > 
<CFIF "reported" is #getlncSummary.STATUS#> 

incident reported to property manager 
<CFELSEIF "marked^illable 11 is #getlncSummary.STATUS#> 

This incident is billable to tenant 
<cfelseif "recognizedJ>y_propman" is #getincSummary.STATUS#> 

waiting for propman to select vendors 
<CFELSEIF "rfq_sent" is #getincSummary.STATUS#> 

RFQ sent to vendor and waiting for response 
<CFELSEIF "time_bid_received" is #getlncSummary.STATUS#> 

Propman is reviewing time bid 
<CFELSEIF "time_bid_accepted" is #getincSummary.STATUS#> 

Property manager is waiting for a cost bid 
<CFELSEIF complete_bid_received" is #getlncSummary.STATUS#> 

waiting for property manager to review bid 
<CFELSEIF "job_cleared_for_work" is #getincSummary.STATUS#> 

OBSOLETE STATE 

<cfelseif "being_serviced" is #getincsummary.STATUS#> 

Incident being serviced 
<CFELSEIF "ready_for_inspection" is #getlncSummary.STATUS#> 

Job complete <A HREF= ten_apv_work. 1 pa?i nc_i d=#getlncsummary . ID#"> 

Report iob inspection results</a> 
<CFELSEIF r, worle.ok_by_tenant n is #getlncSummary.STATUS#> 

Awaiting job completion confirmation by property manager 
<CFELSEIF work_ok_by_propman" is #getlncsummary.STATUS#> 

Job complete <A HREF="ten_apv_work.lpa?inc_id=#getlncSummary.lD# ,, > 

Report iob inspection results</a> 
<CFELSEIF n work_ok_byJ>oth" is #getlncSummary.STATUS#> 

Job confirmed completed 
<CFELSEIF "retired" is #getincSummary.STATUS#> 

retired - no further action needed 
<CFELSEIF " vendor Jiold_on_extra" is #getlncSummary.STATUS#> 

Waiting for Property Manager to approve of PO extension 
<CFELSEIF "job_suspended_on_cost_overrun M is #getincSummary.STATUS#> 

Job cancelled 
<CFELSE> 

no known action 

</CFIF> 

</f ontx/smal 1 ></td> 
</tr> 

</CFOUTPUT> 

</CFiF> <! — this is not a duplicate — > 

</CFLOOP> 

</tabl e> 



<pxfont face="Arial ,, xa href="ten_pencLreq.lpa?state=reti red">view log of completed 
service 

requests</a>         <a 

href="tenant_req.lpa">Enter a 

new service request</ax/fontx/p> 

<HR> 

<CFSET datejiuman = DateFormat(NowC) f Application.lp_date_mask)> 
<CFOUTPUT> 

<p>Date this page was created: #date_human#</p> 
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</CFOUTPUT> 

<pximg src="logo.GlF" alt="logo.GiF (2991 bytes)"x/p> 

</body> 

</html> 
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<script language="JavaScript"> 

function lsDefineNew(myField, newType) { 

sel ectedval ue = my Fi el d . opti ons Lmy Fi el d . sel ectedindex] . val ue ; 
if CO > sel ectedval ue) { 

self .location = "add_new_constant .lpa?type- M + netfType 
+ "&backto=tenant_req . 1 pa" ; 
return(false) ; 



function ChangeLocations(myProp) { 

indx - myProp. opti ons [myprop. sel ectedindex] .value; 

self .location. replace("tenant_req.lpa?prop_id=" + indx); 

return (false) ; 
} } 

</script> 

<! — Set the home unit id, preferring the URL variable if it exists — > 
<CFSET my_unit_id = #Session.home_unit_id#> 
<CFIF lsDefined("URL.prop_id")> 

<CFSET my_unit_id = #URL.prop_id#> 
</CFIF> 
<html> 

<head> 

<title>Enter Service Request</ti tle> 

<META HTTP- EQUIV=" expires" CONTENT="0"> 

</head> 

<body bgcolor="<CFOUTPUT>#Session.bgcolor#</CFOLrrPUT>"> 
<h4xfont face="Arial">Santa Clara Land Company</fontx/h4> 
<hl><font face="Arial">Enter Service Request</fontx/hl> 

<HR> 

<pxfont face="Arial ,, >Use this form to enter a new service request.   If you 
would 

like to view the status of or add additional information to an existing service 
request, <a 

href=="ten_pend_req.lpa">click here to go to the list of outstanding service 

requests</a>. 

</fontx/p> 

<form name="mainform" method="POST" action="tenant_req_thanks.lpa"> 
<table border="0" cellspacing= ,, l" cellpadding="2" width= n 100*r> 
<tr> 

<td width="28%"xCFiNCLUDE TEMPLATE="corr_info_table.lpa"> 
</td> 

<td width="50%"xtable border="0" cellspacing="l" cellpadding="2" width="99%" 
<tr> 

<tdxf ont f ace="Ari al ">Bui 1 di ng : </f ontx/tdxtd> 
<CFIF "tenant" is "#Session.entity_type#"> 
<CFOUTPUT>#Sessi on . home_uni t_name# 

<input name="property" type="hidden" value="#Session.home_unit_name#"> 
</CFOUTPUT> 
<CFELSE> 

<select name="property" size="l" onchange=" return 
ChangeLocati ons (property) "> 

<CFQUERY NAME="getProperties" DATASOURCE="#dsn#"> 
select unit_id, name from PROPERTIES 
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</CFQUERY> 

<CFLOOP QUERY="getProperties"> 

<CFOUTPUTxopti on val ue="#UNIT_ID#" 
<CFIF #UNIT_ID# is #my_unit_id#> 
selected 

</CFIF> 

>#NAME#</opti onx/CFOUTPUT> 
</CFLOOP> 

</select> 
</CFl Fx/tdx/t r> 

<trxtd width="34%"xfont face="Arial ">Problem location :</fontx/td> 
<tdxselect name="location" size= n l" onchange=" return 
isDef i neNew(l ocati on , 1 area ' ) "> 

<! — <CFQUERY NAME="getAreas" DATASOURCE="#dsn# M > 

select UNIT_ID, NAME from CORR_UNITS WHERE CORRESPONDENTS = 

#Sessi on . cor respondent.! d# 

</CFQUERY>— > 

<CFQUERY NAME="getAreas" DATASOURCE="#dsn#"> 
SELECT UNIT_ID, NAME FROM PROP_UNITS 

where prop_units.prop_id = #my_unit_id#; 

UNION SELECT UNIT_ID, NAME FROM CORR„UNITS 

WHERE CORR_units.CORRESPONDENT_id = #Sessi on. cor respondents d#; 
</CFQUERY> 

<CFLOOP QUERY= n getAreas"> 
<CFOUTPUTxopti on 
val ue="#getAreas . UNIT_lD#">#getAreas - NAME#</optionx/CFOUTPUT> 
</CFL00P> 

<option value="-l n >Define new area</option> 

</sel ect> 

</td> 
</tr> 
<tr> 

<td width="34%"xfont face="Arial">Service needed :</fontx/td> 
<tdxselect name="service" size="l" onChange=" return 
IsDef i neNew(servi ce , ' servi ce * )"> 

<CFQUERY NAME="getServices" DATASOURCE="#dsn#"> 
select id .name from service_names 

</CFQUERY> 

<CFLOOP QUERY="getServices"> 

<CFOUTPUTxoption value="#lD#" 

<CFIF "Electrical" is "#NAME"> selected </CFlF> <!— <x> remove 
this eventually — > 

>#NAME#</opti onx/CFOUTPUT> 
</CFLOOP> 

<option value="-l">Define new servi ce</option> 
</sel ectx/td> 
</tr> 
<tr> 

<td width="34%"xfont face="Arial ">Urgency :</fontx/td> 
<tdxselect name="urgency" si2e="l"> 
<option value="emergency >Emergency</option> 
<opti on val ue="urgent">Urgent</opti on> 
<option value^'asap'VAs soon as possible</option> 
<option selected value="nap">Not a priori ty</option> 
</selectx/td> 
</tr> 
</tabl e> 
</td> 
</tr> 
</table> 

<h3xfont face="Arial">Problem description :</fontx/h3> 
<pxtextarea rows="4" name="description" cols="50"x/textarea> </p> 
<pxinput type="submit" value="Submit service request" name="submit M > </p> 
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</form> 



<HR> 

<CFSET date_human = DateFormat(NowO , Application.lp_date__mask)> 

<CFOUTPUT> 

<p>Date this page was created: #date_human#</p> 

</CFOUTPUT> 

<p> <img src="logo.GlF" alt="logo.GlF (2991 bytes)"x/p> 
</body> 
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<! — Copyright 1999 LandPort All rights reserved — > 

< ! — <HTML> 

<HEAD><TiTLE>Report incident Data Received</TITLE> 

</HEAD> 
<BODY> ---> 

<! — OK, who manages this building ? — > 
<CFQUERY NAME= ,, findPropMan" DATASOURCE="#dsn# H > 
select CORRESPONDENT_ID from UNIT_PROPMAN 
where unit_ID = #Session.home_unit_id# 
</CFQUERY> 

<! — <><> Need to ensure that the headline does not exceed the 

field length of INCIDENTS. HEADLINE — > 
<! — separate the description into the headline and the text — > 
<CFSET next_line_index = Find(Chr(10) , #form.description# f 1)> 
<CFIF (0 IS #next_line_index#)> 

<CFSET headline = #form.description#> 

<CFSET body = ""> 
<CFELSE> 

<CFSET desc_len = Len(#form.description#)> 

<CFSET headline = Left(#form.description#, (next_line_index - 2))> 
<CFSET body = Right(#form. description*, (desc_len - next_line_index))> 

</CFIF> 

<CFIF 0 IS Len(headline)> 

<hl>You must enter a description</hl> 

<CFABORT> 
</CFIF> 

<! — Create the incidents record — > 

<CFTRANSACTION> 

<CFQUERY NAME= ,, insertIncident" DATASOURCE="#dsn# M > 

insert into INCIDENTS (PARENT_INCIDENT , reporting_party_id , 
PROPMAN_ID, SERVICE_ID, UNIT_ID, URGENCY, STATE_ID, 

headline, description) values 
(0, #Sessi on. cor respondents d# f 

#f i ndPropMan . correspondent_id# f #f orm . servi ce# , 

#form. location*, '#form. urgency* 1 , 

#Appl i cati on . i nc_state_reportea# , ' #headl i ne# 1 , ' #body# ' ) 

</CFQUERY> 

<! — get the ID of this last incident — > 

<! — <><> need to check to see if there is a better way to do this — > 
<CFQUERY NAME="getincidentld" DATASOURCE="#dsn#"> 
select max (id) as max_id from incidents 

</CFQUERY> 
</CFTRANSACTION> 

<CFSET my_incident_id = #getlncidentld.MAX_lD#> 
<CFSET session. inc_id = #getlncidentid.MAX_lD#> 

<CFSET my_now = #createOdbcDateTime(Now())#> 
<CFQUERY NAME= ,, insertlncEvent u DATASOURCE="#dsn#"> 

insert into INC^EVENTS (INCIDENT_ID , EVENT_TYPE , REFERENCE_ID , WHO_ID , TIMESTP) 

values 

(#my_incident_id#, 'create' , 0, #Session.correspondent_id#, #my_now#) 
</CFQUERY> 

<! — Now assign two correspondents to this incident - the sender and the propman 

— > 

<CFQUERY NAME= M insertCoorl u DATASOURCE="#dsn# M > 

insert into INC_CORR£ (INCIDENT..ID , £ORR_ID , ROLE) 
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values 

(#my_i nci dent_i d# , #Sessi on . correspondent.! d# , ' tenant ' ) 

</CFQUERY> 

<CFQUERY NAME="insertCoor2" DATASOURCE="#dsn#"> 

insert into INCCORRS (INCIDENT_ID , CORR_ID » ROLE) 
values 

(#my_incident_id#, #f i ndPropMan . CORRESPONDENT_lD# , 'propman') 
</CFQUERY> 

<! — Check this incident's parameters against the fast rack rules to see whether 

it qualifies — > 
<CFQUERY NAME="getFastTrackRules" DATASOURCE="#dsn#"> 
select * from fast_track_rules 

where (((TENANT_ID = 0) or (TENANT_ID = #Sessi on. cor respondents d#)) 
and ((SERVICE_ID = 0) or (SERVICE_ID = #FORM. servi ce#)) 
and C(unit_id = 0) or (unitjd = #form. location*)) 
and ((URGENCY = ' ') or (URGENCY = f #FORM. urgency* ' ))) 

</CFQUERY> 

<! — oo I would like to put this into a CF template, but don't 

know how to transfer the query getFastTrackRules into a template — > 

<CFIF 0 LT #getFastTrackRules.RecordCount#> 

<! — Add all of the fast track vendors to the list of vendors to contact — > 
<! — oo Note that the vendor's contract priority is somewhat arbitraty here - 

need a better way — > 

<! — oo Note that we need a better way to handle the case of different vendor 

rules with 

different cost limits : do we make all vendors adhere to the same cost 
limit (as is 

the case with this implementation) or do we generate a separate rfq for 
each vendor ? 

Also we need to handle the case of different sets of vendors attached to 

different 

fast track rules - the sets may be mutually exclusive or might have some 

common 

vendors : two nested loops and some intelligence is required in the daemon. 
The following code skirts around this problem by simply picking the first 

matching 

fast track rule and ignoring the rest — > 
<CFQUERY NAME="getFastTrackEntSrvs" DATASOURCE="#dsn#"> 
select ENT_SRV_ID, PRIORITY from FAST_TRACK_ENT_SRV 

where (FT_RULE_ID = #getFastTrackRules.lD#) 
order by PRIORITY 
</CFQUERY> 

<CFSET cur_vendor = 0> 
<CFLOOP QUERY="getFastTrackEntSrvs"> 
<CFSET cur_vendor = #cur_vendor# + 1> 
<CFQUERY NAME= M insertlncVen" DATASOURCE="#dsn#"> 
insert into INC_VENDORS 
(INCIDENT_ID , ENTITY_S ERVIC E_I D , CONTACT.PRIORITY , STATE) 

val ues (#Session . i nc_i d#, #getFastTrackEntSrvs . ent_srv_id#, 
#getFastTrackEntSrvs ■ priority* , ' hoi d ' ) 

</CFQUERY> 
</CFLOOP> 

<! — Add a comment regarding the fasttrack — > 
<CFSET comment_type = fasttrack"> 

<CFSET com_text = "Fast track initiated to contact #cur_vendor# vendors- "> 
<CFINCLUDE TEMPLATE= n add_inc_com_core.lpa"> <! — inserts comment — > 

<! — Now build the RFQ — > 
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<CFTRANSACTION> 

<CFQUERY NAME= M insertRfq" DATASOURCE="#dsn#"> 

insert into RFQS (INC_ID,COST_LIMIT,TIME_LIMIT, 
TIME_UNITS , CONTACT_STRATEGY , 

SERIAL_TIMEOUT , RECS_TO_FORWARD , RESPONSE_REQ f FAST_TRACK__BID , TIMESTP) 

values 

(#sessi on . i nc_i d# , #get FastTrackRul es . C0ST__LIMIT# , #get FastTrackRul es • SERVICE_TIME# , 
'#get FastTrackRul es . SERVICE_TIME_UNITS#' , 'serial ' , 

■#get FastTrackRul es.SERiAU.TiMEOUT#' , * #get FastTrackRul es.RECS_TO_FORWARD#' f 
' servi ce f , ' auto * , #my_now#) 
</CFQUERY> 

<CFQUERY NAME= H getRfqld n DATASOURCE^ n #dsn#"> 

select max (ID) as MAX_ID from RFQS 

</CFQUERY> 
</CFTRANSACTION> 

<CFSET rfq_id = M #getRfqld.MAX_lD#"> 

<! — Add an event to this incident - Fast track initiated — > 
<CFQUERY NAME= n insertincEvent n DATASOURCE="#dsn#"> 

insert into inc_events (incident_id , event_type , referenclid t who_id f timestp) 
values 

(#Session.inc_id#„ 'fast.trackJnitiate 1 , #rfq_id#» 
#Session.correspondent_id#, #my_now#) 

</CFQUERY> 

<! — update incident record to change state to recognized_by_propman — > 
<CFQUERY NAME="updateState" DATASOURCE="#dsn# n > 
update incidents 

set STATE_id = #Application.inc_state_recognized_by_propman# 

where ID = #Session.inc_id# 

</CFQUERY> 

<! — now send the message out to the first vendor — > 
<CFINCLUDE TEMPLATE="rfq2next_ven. lpa"> 

<CFSET fast_tracked = "YES"> 

<CFELSE> 

<CFSET fast_t racked = "no"> 

</CFIF> 

<! — Now form and send a message to the propman — > 

<CFTRAN5ACTION> 

<CFQUERY NAME="insertMessage" DATASOURCE="#dsn#"> 

insert into MESSAGES (TIME_CREATED , MSG_TEMPLATE , SENDER .SUBJECT) 

val ues (#my_now# , #Appl i cati on . msg_i nc_create# , #Sessi on . cor respondents d# , 
'incident #my_incident_id# reported by #Session.user_name#') 

</CFQUERY> 

<CFQUERY NAME="getMessageld" DATASOURCE="#dsn#"> 
select max(iD) as max_id from messages 

</CFQUERY> 
</CFTRANSACTION> 

<CFSET my_message_id = #getMessageid.MAX_iD#> 

<CFQUERY NAME= ,, insertMsgComponent" DATASOURCE="#dsn#"> 
insert into msGl_components (msg_id,msg_element_id,val) 

val ues (#my_message_i d# , #Appl i cati on . msg_el_i nci dent_i d# , ' #my_i nci dent_i d# ' ) 
</CFQUERY> 

<! — call the send message template — > 
<CFSET my_recipient_id = #f i ndPropMan . CORRESPONDENT_id#> 
<CFSET subject = "#form. urgency* Problem Report : #headline#"> 
<CFSET body = '#body# 

Page 3 



tenant_req_thanks . l pa 

Please click <a 

href ="#Appl i cati on . extern_url_base#/ten_i nc . 1 pa?i nc_i d=#my_i nci dent_i d# M > 
#Appl i cati on . extern_url_base#/ten_i nc . 1 pa?i nc_i d=#my_i nci dent_i d# for more 
details. *> 

<CFSET thanks_text = "Your service request has been submitted M > 
<CFSET title = "service request submitted"> 
<CFIF "property" IS "#Session.entity_type#"> 
<CFSET back = "pm_service_sum.lpa"> 

<CFELSE> 

<CFSET back = "ten_pend_req.lpa"> 

</CFIF> 

<CFIF "yes" IS #fast_tracked#> 

<CFSET body = "#body#<brxbr>Note : this incident has been fast tracked !"> 
<CFSET thanks_text = "#thanks_text#<br> this incident has been fast tracked"> 

</CFIF> 

<CFINCLUDE TEMPLATE="send_msg.lpa M > 

<CFIF "NO" is #delivered#> 

<CFSET thanks_text = '#thanks_text#<brxfont color="red">WARNlNG - could not find 
a channel available to deliver to recipient.</font>'> 

</CFIF> 

<CFINCLUDE TEMPLATE=" thanks - 1 pa"> 
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<! — Copyright 1999 LandPort All rights reserved — > 

<CFPARAM NAME="tit1e" DEFAULT="Thanks"> 

<CFPARAM NAME="thanks_text M DEFAULT= M Your data has been entered"> 

<CFPARAM NAME= ,, back" DEFAULT=""> 

<CFPARAM NAME^'back^-name" DEFAULT="your home page M > 



<html> 
<head> 

<ti tl e><CFOUTPUT>#ti tl e#</CFOUTPUTx/ti tl e> 
</head> 

<body bgcol or="<CFOUTPUT>#Sessi on . bgcol or#</CFOUTPUT>"> 
<hl><font face="Arial">Santa Clara Land Company</fontx/hl> 
<font face="Arial"> 

<CFOUTPUT>#thanks_text#</CFOUTPUT> 

<cfif "" is not #back#> 

<CFOUTPUT> 

<brxa href="#back#">c"lick here to go back to #back_name#</a> 

</CFOUTPUT> 
</CFIF> 
</font> 

<pximg src="logo.GIF" alWlogo.GIF C2991 bytes)"x/p> 
</body> 
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<! — Converts a unit ID to a set of human readable addresses 

<! — returns addressl, city, state, zip — > 

<!— Copyright 2000 Landport inc. all rights reserved ---> 



<CFPARAM NAME="unit_id"> 

<! — recursively examine units to determine this unit's most 

precise street address — > 
<CFSET recursion_depth = 10> <! — the limit to recursion -- 
<CFSET found = "no"> 
<CFSET cur_unit = "#unit_id#"> 

<CFLOOP CONDiTiON="(recursion_depth GT 0) AND ('no 1 is found) 
<CFSET recursion_depth = #recursion_depth# - 1> 
<CFQUERY NAME="getUnitAddr" DATASOURCE= M #dsn#"> 
select val from unit_atts 

where UNIT_ID = #cur_unit# and NAME = 'addressl' 

</CFQUERY> 

<CFIF 0 LT #getUnitAddr.RecordCount#> 
<CFSET found = "yes"> 

<CFQUERY NAME="getUnitAttS n DATASOURCE= M #dsn#"> 

select name, val from unitiatts 
where UNIT_ID = #cur_unit# 
</CFQUERY> 

<CFSET addressl = ""> 

<CFSET city = ""> 

<CFSET state = ""> 

<CFSET Zip = " n > 

<CFLOOP QUERY^'getUnitAttS 1 ^ 

<CFIF 'addressl' IS #getunitAtts.NAME#> 
<CFSET addressl = rf #getUnitAtts.VAL#"> 

</CFIF> 

<CFIF 'city' IS #qetunitAtts.NAME#> 
<CFSET city = rf #getUnitAtts.VAL#"> 

</CFIF> 

<CFIF 'state' IS #getunitAtts.NAME#> 
<CFSET state = rt #getUnitAtts.VAL#"> 

</CFIF> 

<CFIF 'zip' IS #qetUnitAttS-NAME#> 

<CFSET zip = n #getUnitAtts.VAL# M > 

</CFIF> 
</CFLOOP> 
<CFELSE> 

<! — move up to this unit's parent — > 
<CFQUERY NAME="getUnit Parent" DATASOURCE="#dsn#"> 

select PARENT.ID from units 

where ID = #cur_unit# 

</CFQUERY> 

<CFSET cur.unit = #getunitParent .PARENT_ID#> 

</CFIF> 

</CFLOOP> <! — recursive descent to find address — > 
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<! — accept_bid - processes a bid acceptance and makes the proper db updates and 
messages 

Copyright 1999,2000 LandPort All rights reserved — > 

<CFPARAM NAME="Session.inc_id"> 
<CFPARAM NAME="Session.rfq_id"> 

<CFPARAM NAME="com_text"> 
<CFPARAM NAME="po_num"> 

<CFPARAM NAME="mode"> <! — set to accept, reject, or comments_only — > 

<CFPARAM NAME="myJ)id" DEFAULT=""> 

<cfif "accept" is "#mode#"> 

<CFSET next^state = #Application.inc_state_being_serviced#> 
<CFSET event_label = "bid accepted"> 

<CFSET user_text = "This bid has been accepted. The vendor will be informed."> 
<CFELSEIF "reject" is "#mode#"> 

<CFSET next_state - #Application.inc_state_recognized_by_propman#> 
<CFSET event_label « "bid rejected"> 

<CFSET user_text = "This bid has been rejected. The vendor will be informed. "> 
<CFELSEIF "comments.only" is "#mode#"> 
<cfif "" is "#com_text#"> 

<CFSET thanks_text - f #thanks_text#<font color="red">Error : You did not enter 
any comments. </font>'> 

<! — <><> Need a better handling of this - pass error code back to caller 

— > 

</CFIF> 

<CFSET next_state = #getlncidentState.STATE_lD#> 
<CFSET event_label = bid comments to vendor "> 

<CFSET user_text = "Your comments will be forwarded to the vendor. "> 
<CFELSE> 

<! — oo Need a better handling of this - pass error code back to caller — > 
<CFSET thanks_text = '#thanks_text#<font color="red">Error : cannot recognize 
button . </f ont> 1 > 

</CFIF> 

<CFIF ("accept" IS "#mode#") OR ("reject" IS "#mode#")> 

<CFQUERY NAME="updateState" DATASOURCE="#dsn#"> 
update INCIDENTS 

set STATE_ID = #next_state# 
where ID = #Session.inc_id# 

</CFQUERY> 
</CFIF> 

<CFIF "" is NOT "#my_bid#"> 

<CFQUERY NAME="getBid" DATASOURCE="#dsn#"> 

sel ect ID , ENT_SRV__ID , CORRJD , FIRST_ACTION , COST_BID , START_TIME , END_TIME f 
VEN_COMMENTS from BIDS 

where ID = #my_bid# 
</CFQUERY> 
<CFELSE> 

<CFQUERY NAME="getBid" DATASOURCE="#dsn#"> 

Sel ect ID , ENT_SRV_ID , CORR.ID , FIRST. ACTION , COST.BID , START_TIME , END_TIME , 
VEN_COMMENTS from BIDS 

where RFQ_ID = #Session. rfq_id# 
</CFQUERY> 

<! — <><> Need to handle multiple bids here - this code only looks at the first 

— > 

<CFSET my_bid = #getBid.lD#> 
</CFIF> 

<! — Get the propman's correspondent id and other info — > 
<CFQUERY NAME= f getPropManCorrld" DATASOURCE="#dsn#"> 
select PROPMAN„ID 
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from INCIDENTS 
where ID = #Session.inc_id# 

</CFQUERY> 

<CFQUERY NAME="getPropManInfo" DATASOURCE="#dsn#"> 
sel ect FIRSTJMAME , MI , LAST_NAME , ENTITY_NAME 
from USER^jMRG 

where CORRESPONDENT^ = #getPropManCorrld.PROPMAN_lD# 

</CFQUERY> 

<! — Add an event to this incident — > 
<CFSET my_now - #createOdbcDateTime(Now())#> 
<CFQUERY NAME="insertlncEvent" DATASOURCE="#dsn#"> 

insert into INC_EVENTS (INCIDENT_ID , EVENT_TYPE , REFERENCELID , WHO_ID , TIMESTP) 
values 

(#Session.inc_id#, '#event_label#' , #my_bid#, #getPropManCorrld.PROPMAN_lD#, 
#my_now#) 

</CFQUERY> 

<! — Add this vendor as a correspondent to the incident if the bid was accepted 

— > 

<! — Now get the bidder's info — > 

<CFIF "accept" IS "#mode# M > 

<! — this seems to not be referenced 

<CFQUERY NAME="getEntSrvinfo" DATASOURCE="#dsn#"> 

Sel ect ENTITY_ID , SERVICE f ENTITY_NAME , FIRST_NAME , MI , LAST_NAME , PRIMARY_CONTACT 

from SERVICE_MRG 
Where ENTITY_SERVICE_ID - #getBid. ENT_SRV_ID# 
</CFQUERY> 
> 

<CFQUERY NAME="insertincCorr" DATASOURCE="#dsn#"> 

insert into INCCORRS (INCIDENT__ID f CORR_ID , ROLE) 

val ues (#Sessi on . i nc_i d# , #getBi d . C0RR_ID# , 1 vendor 1 ) 
</CFQUERY> 
</CFIF> 

<! — determine what kind of bid this is — time or complete — > 
<CFIF "accept" IS "#mode#"> 

<CFIF CC" is "#getBid.COST_BID#") OR (0 is "#getBid.COST_BID#"))> 
<CFSET msg_type = #Application.msg_time_bid_accepted#> 

<CFELSE> 

<CFSET msg_type = #Application.msg_complete_bid_accepted#> 
</CFIF> 

<CFELSEIF "reject" IS "#mode#"> 

<CFSET msg_type - #Application.msq_bid„rejected#> 
<CFELSEIF "comments_only w IS "#mode# rt > 

<CFSET msg_type = #Application.msg_generic#> 

</CFIF> 

<! — if there were comments, attach them to the db — > 
<cfinclude template = "add_i nc_com_core . lpa"> 

<! — if the bid was accepted, then assign the vendor a PO number — > 
<CFIF ("accept" is "#mode#") and 

("" IS NOT #getBid.COST_BID#) AND (0 IS NOT #getBid.COST_BID#)> 
<CFIF "" IS "#po_num#"> 

<CFSET po_number = "default"> 

<! — <>o Need to generate real default po numbers here — > 

<CFELSE> 

<CFSET po_number = "#po_num#"> 
</CFIF> 

<CFQUERY NAME="updatePO" DATASOURCE="#dsn#"> 
update INC_VENDORS 
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updated nc_state_f rom_bi ds . 1 pa 
set PO_NUM = '#po_number#' 
where incident_id = #Session.inc_id# and 

ENTITY_SERVICE_ID = #getBi d . ENT_SRV_ID# 
</CFQUERY> 

<CFQUERY NAME= H addVenCorrId" DATASOURCE="#dsn#"> 
update INCIDENTS 

set VEN_CORR__ID = #getBid.CORR__ID# 
where ID = #Session.inc_id# 
</CFQUERY> 
</CFIF> 

<! — now build up a message to send back to the vendor — > 

<CFQUERY NAME="getlncSummary n DATASOURC E= H #d s n# 11 > 

Sel ect ID , STATUS , HEADLINE . DESCRIPTION , UNIT_ID , UNIT_NAME , 
SERVICE_ID , SERVICLNAME , URGENCY from INC.SUMMARY 

where ID = #Session.inc_id# 
</CFQUERY> 

<! — send a message to the vendor describing the outcome — > 
<C FTRAN SACTION> 

<CFQUERY NAME= n insertMessage n DATASOURCE= n #dsn# M > 

insert into MESSAGES (TIME_CREATED , MSG—TEMPLATE , SENDER , SUB J ECT) 

values (#my_now#, #msg_type#, #getPropManCorrid. PROPMAN_lD#, 
'Your bid on incident #Session.inc_id# has been accepted') 
</CFQUERY> 

<CFQUERY NAME="getMessageId M DATASOURCE="#dsn#"> 
select max(iD) as max_id from MESSAGES 

</CFQUERY> 
</CFTRANSACTION> 

<CFSET my_message_id = #getMessageld.MAX_lD#> 

<! — Add the relevant components to the message — > 
<CFQUERY NAME="insertMsgComponent" DATASOURCE= #dsn#"> 
insert into msglcomponents (msg_id,msg_element_id,val) 

val ues (#my_message_i d# , #Appl i cati on . msg_el_i nci dent_i d# P ' #sessi on . i nc_i d# ' ) 

</CFQUERY> 

<CFQUERY NAME="insertMsgComponent" DATA50URCE="#dsn#"> 
insert into MSGLCOMPONENTS (MSG_ID,MSGLELEMENT_ID,VAL) 

values (#my_messageL-id#,#Application.msg_el_bid_id#, f #my_bid# B ) 
</CFQUERY> 

<cfif "" is not "#com_text# ,, > 

<CFQUERY NAME="insertMsgComponent" DATASOURCE="#dsn#"> 

insert into MSGLCOMPONENTS (MSG_ID,MSG_ELEMENT_ID,VAL) 

val ues (#my_message_i d# , #Appl i cati on . msg_el_comments# f ' #com_text# ' ) 

</CFQUERY> 
</CFIF> 

<CFSET signature = "#getPropManinfo.FlRST_NAME# #getPropManinfo.Ml# 
#getPropManinf o . LAST_NAME# , #getPropManlnf o . ENTITY_NAME# > 
<CFIF "accept" IS "#mode#"> 

<CFOUTPUT> 

<CFSET subject = "Your bid on incident #Session.inc_id# has been accepted"> 
<CFSET body = 'You made a bid to service the following incident :<br> 

incident number : #Session.inc_id#<br> 
Location : #getlncSummary.UNlT_NAME#<br> 
Description : #getlncSummary.HEADLINE#<br> 
#getincSummary.DESCRlPTiON#<brxbr> 

Your bid has been accepted and you may begin servicing this job, when 
complete, please inform us by visiting 
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updated nc_state_f romJri ds . 1 pa 
<a href= n ven_dcl_done.lpa?inc_id= M #Session.inc_id#">this page</a> to declare the 
as done. 

#com_text#<br> 

Regards ,<br> 
#signature#<br> 

</CFOUTPUT> 

<CFELSEIF "reject" IS "#mode#"> 

<CFOUTPUT> 

<CFSET subject = "Your bid on incident #Session.inc_id# has been rejected"> 
<CFSET body = 'You made a bid to service the following incident :<br> 

incident number : #Session.inc_id#<br> 
Location : #getlncSummary.UNlT_NAME#<br> 
Description : #getlncSummary.HEADLiNE#<br> 
#getlncSummary . DESCRIPTlON#<brxbr> 

Your bid has been rejected. 

#com_text#<br> 

Regards, <br> 

#signature#<br> 

'> 

</CFOUTPUT> 

<CFELSEIF "comments_only M IS "#mode#"> 
<CFOUTPUT> 

<CFSET subject = "Comments regarding your bid on incident #Session.inc_id#"> 
<CFSET body = 'You made a bid to service the following incident :<br> 

incident number : #Session.inc_id#<br> 
Location : #getlncSummary.UNiT_NAME#<br> 
Description : #getincSummary.HEADLlNE#<br> 
#getlncSummary.DESCRlPTlON#<brxbr> 

I have the following comments regarding this bid :<br> 

#com_text#<br> 

Please respond so that we can proceed with this job.<br> 

Regards ,<br> 

#signature#<br> 

'> 

</CFOUTPUT> 
</CFIF> 

<! — call the send_msg template to process the message — > 
<CFSET my_recipient_id = "#getBid.CORR__iD#"> 
<CFINCLUDE TEMPLATE="send j»sg . 1 pa"> 

<CFSET thanks.text = "#thanks_text# #user_text#"> 

<CFIF "NO" is #delivered#> 

<CFSET thanks.text = '#thanks_text#<font color="red">WARNlNG - could not find 
channel available to deliver to recipient.</font>'> 

<CFABORT> 
</CFIF> 
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ven_corr_2_ent_srv . 1 pa 
<CFQUERY DATASOURCE="#DSN#" NAME= n getEntSrvFromCorrld ,, > 

SELECT ID FROM ENTITY.SERVICES 

WHERE CONTACT = #Session. correspondent.! d# 
</CFQUERY> 

<CFIF #getEntSrvFromCorrld.RecordCount# GT 0> 

<! — Pick the first record to link <><> Need to pop up an form to ask the 
user who the actually want to log in as — > 

<CFSET Session.ent_srv_id = #getEntSrvFromCorrld.lD#> 
<! — <CFOUTPUTxscript language^ javascript">alert("llset to 
#Sessi on . ent_srv„i d# )</scri ptx/CFOUTPUT> — > 

<CFELSE> 

<! — now we have to check the entity record and select one of the 
ENTITY_SERVICES ---> 

<CFQUERY DATASOURCE="#DSN#" NAME="getEntSrvFromEntld"> 
SELECT ID FROM ENTITY_SERVICES 

WHERE ENTITY_ID = #Session . entity.i d# 

</CFQUERY> 

<! — <><> Must resolve ambiguity of an entity with multiple services — > 
<cfset session. ent_srv_id = #getEntSrvFromEntld.iD#> 

</CFIF> 



Page 1 



ven_dcl_done . 1 pa 
<CFSET heading = "Declare as completed - incident"> 

<CFPARAM NAME="URL.inc_id"> 

<CFSET Session.inc_id = "#URL.inc_id#"> 

<! — Check to see whether an invoice had been rejected for this incident — > 
<CFQUERY NAME= M getincRejectEvent" DATASOURCE="#dsn#"> 
select 'x' from incevents 

where event_type = •workjiotL-ok-by-propman 1 and 
INCIDENT_ID = #Session.inc_id# 
</CFQUERY> 

<CFIF 0 IS NOT #getlncRe ject Event. RecordCount#> 

<h2xfont face="Arial" color="red">Note - the property manager has rejected a 
previous invoice !</fontx/h2> 

</CFIF> 

<CFINCLUDE TEMPLATE="i ncjiead . 1 pa"> 

<form method= ,l POST" action="ven_dcl_done_thanks.lpa"> 

<h3xfont face="Arial">:)ob completion time :</fontx/h3> 

<CFSET prefix = "completionJ'> 

<CFINCLUDE TEMPLATE^' date__time_sel .lpa"> 

<h3xfont face="Arial">Submit your invoice :</fontx/h3> 
<form method="POST" action="ven_dcl_done_thanks.lpa"> 
<table border="0" cellspacing="l" cellpadding="2"> 

<trxtd bgcolor="80FF00"xsmallxfont face="Arial ">Labor cost 
$</f ontx/small ></td> 

<td bgcolor= M 80FF80"xsmanxfont face="Arial"> 

<input name="labor_cost" type="text" size="10"x/fontx/smanx/td> 
</tr> 

<trxtd bgcolor="80FF00"xsmanxfont face="Arial">Parts cost 
$</f ontx/small ></td> 

<td bgcolor="80FF80"xsmallxfont face="Arial"> 

<input name="parts_cost" type="text n si ze="10"x/f ontx/small x/td> 
</tr> 

<trxtd bgcolor="80FF00 ,, xsmallxfont face= ,r Arial ">Total cost 
$</f ontx/smal 1 ></td> 

<td bgcolor="80FF80"xsmanxfont face="Arial "> 

<input name=" total _cost" type="text" si ze="10"x/f ontx/small ></td> 
</tr> 
</table> 

<pxfont face= ,, Arial ,, xsmall>Full text of invoice and comments : </smallx/fontx/p> 
<pxtextarea 

rows= M 5" name="f ul l_i nvoi ce_text" col s="56"x/textareaxbr> 
<input type="submit" value="Declare done and ready for inspection" 

name= subrmt"x/p> 

</form> 

<HR> 

<CFSET date_human = Dat e Format (Now Q , Application.lp_date_mask)> 

<CFOUTPUT> 

<p>Date this page was created: #date_human#</p> 
</CFOUTPUT> 

<pximg src=" logo. GIF" alt="logo.GIF"x/p> 
</body> 
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ven_dcl_done_t hanks . 1 pa 
<!-- Copyright 1999,2000 LandPort All rights reserved 

< ! — -<CFIF isoef i ned("FORM. comments")> 
<CFSET com_text = "#FORM.comments#"> 
<CFINCLUDE TEMPLATE= M add_i nc_com_core . 1 pa"> 

</CFIF>— > 

<CFPARAM NAME= H FORM.labor_COSt n DEFAULT="Nul 1 "> 
<CFPARAM NAME=" FORM. part S_COSt" DEFAULT="Nul 1 "> 
<CFPARAM NAME= "FORM. total _COSt" DEFAULT="Nul 1 "> 

<! — insert an invoice record iff the vendor submitted any info — > 

<CFIF ("Null" IS NOT "#FORM.labor_COSt#") OR 
("Null" IS NOT "#FORM.partS.COSt#") OR 
("Null" IS NOT "#FORM. total _COSt#") OR 

("" IS NOT "#FORM.fuH_invoice_text#")> 
<CFIF "" is "#FORM.labor_cost#"> 
<cfset my_labor_cost = "Null'V 

<CFELSE> 

<CFSET my_labor_cost = "#FORM.labor_cost#"> 

</CFIF> 

<CFIF IS "#FORM.partS_COSt#"> 

<CFSET my_parts_cost = "Null"> 

<CFELSE> 

<CFSET my_parts_cost - "#FORM.parts_cost#"> 

</CFIF> 

<CFIF "" IS "#FORM . total _COSt#"> 

<CFSET my_total_cost = "Nul 1 M > 
<CFELSE> 

<CFSET my_total_cost = "#form. total _cost#"> 
</CFIF> 

<CFSET thanks_text = "This iob has been marked completed pending inspection. 
Your invoice has been recorded > 

<CFSET title = "incident marked complete and invoice submitted"> 
<cfquery NAME="getincven ,f DATASOURCE="#dsn#"> 
select po_num from inc_vendors 

where incident„id = #session.inc_id# and entity_service_id = 
#Sessi on . ent_s rv_i d# 
</CFQUERY> 

<CFQUERY NAME="insertinvoice" DATASOURCE="#dsn#"> 
insert into INVOICES 

(INC_ID , PO_NUM , TOTAL_LABOR , TOTAL_PARTS , TOTAL , INVOICE.TEXT) 

values 

(#sessi on . i nc_i d# , ' #Getincven . PO_NUM#' , #my_parts_cost# , #myjl abor_cost# , 
#my_total_cost# , ' #FORM . f ul 1 _i nvoi ce__text# * ) 

</CFQUERY> 
<CFELSE> 

<CFSET thanks.text = "This job has been marked completed pending inspection. 
<CFSET title = "incident marked complete"> 
</CFIF> 

<! — mark the vendors completion time — > 
<CFSET compl eti on_hour_24 = #completion_hour#> 
<CFIF "pm" is #FORM.completion_period#> 

<CFSET compl eti on_hour_24 = (#completion_hour_24# + 12) > 
</CFIF> 

<CFSET completion_time = 

CreateDateTi me (form . compl et i on_year , form . compl eti on_month , form . compl et i on_day , 

FORM . compl eti on Jiour f FORM . compl eti onjii nute f 0)> 
<CFQUERY NAME="updateCompTime" DATASOURCE="#dsn#"> 
update INCIDENTS 

set ven_COMP__time = #compl etion_time# 
where ID = #Session.inc_id# 
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ven_dcl_done_thanks . 1 pa 

</CFQUERY> 

<! — build a message to send to the propman — > 
<! — now get the propman 1 s correspondent info — > 
<CFQUERY NAME= H getincident" DATASOURCE="#dsn# ,! > 

select PROPMAN_lD from INCIDENTS 

where ID = #Session.inc_id# 
</CFQUERY> 

<CFQUERY NAME="getPropmanEmail" DATASOURCE="#dsn#"> 

select val from corr_channel_rpt 

where CORRESPONDENTS = #getlncident . PROPMAN_iD# 
</CFQUERY> 

<CFSET my_reci pi ent_i d = #getlncident.PROPMAN_lD#> 

<! — Create the message — > 

<CFSET my_now = #createOdbcDateTime(Now())#> 

<CFTRANSACTION> 

<CFQUERY NAME= ,, insertMessage M DATASOURCE="#dsn#"> 

insert into MESSAGES (TIME_CREATED , MSG_TEMPLATE » SENDER , SUB J ECT) 

values 

(#my_now# , #Appl i cati on . msg_ready_f or_i nspecti on# , #Sessi on . correspondents' d# , 

'incident #session.inc_id# is ready for inspection') 
</CFQUERY> 

<CFQUERY NAME="getMessageId" DATASOURCE="#dsn#"> 

select max(lD) as max^id from messages 

</CFQUERY> 
</CFTRANSACTION> 

<CFSET my_jnessage_id = #getMessageld.MAX_lD#> 

<! — Add the relevant components to the message — > 
<CFQUERY NAME="insertMsgComponent" DATASOURCE= #dsn#"> 
insert into msg_components (msglid f msg_element_id , val) 

val ues (#my_message_i d# , #Appl i cati on . msg_el_i nci dent__i d# , ' #Sessi on . i nc_i d# ' ) 

</CFQUERY> 

<! — Add an event to this incident - ready for inspection — > 
<CFQUERY NAME= M insertIncEvent" DATASOURCE= #dsn#"> 

insert into INC^EVENTS (INCIDENT_ID,EVENT_TYPE f REFERENCE_ID,WHO_ID t TIMESTP) 

val ues 

(#Session.inc_id#, 1 ready_for_i nspecti on 1 , #my_jnessage_id#, 
#Sessi on. cor respondents d# f #my_jiow#) 
</CFQUERY> 

<! — Build up some of the stuff that goes into the message to be sent — > 
<CFQUERY NAME="getlncSummary" DATASOURCE="#dsn#"> 
select 

ID , STATUS , HEADLINE f DESCRIPTION , UNIT_ID , UNIT_NAME , SERVICE-ID , SERVICE_NAME f URGENCY 
from INCL.SUMMARY 

where ID = #Session.inc_id# 
</CFQUERY> 

<cfset invoicejiessage_text = ""> 

<CFIF "" IS NOT #FORM.labor„COSt#> 

<CFSET invoiceL_message_text = "#invoice_message_text#<br>Labor 
$#form . 1 abor_cost#"> 

</CFIF> 

<CFIF "" IS NOT #FORM.partS_COSt#> 

<CFSET invoice_message_text = "#invoice_message_text#<br>Parts 
$#FORM . parts_cost#"> 

</CFIF> 

<CFIF IS NOT #FORM. total _COSt#> 

<cfset invoicejnessageL.text = "#invoice_messageL_text#<br>Total 
$#FORM . total _cos t#"> 
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ven_dcl_done_thanks . 1 pa 

</CFIF> 

<CFIF is not #FORM.full_invoice_text#> 

<CFSET invoice_jnessage_text = "#invoice_message_text#<br><h3>Full invoice text 
: </h3xbr>#FORM . f ul l_i nvoi ce_text#"> 
</CFIF> 

<CFOUTPUT> 

<CFSET subject = "incident #Session.inc_id# is ready for inspection's 
<CFSET body = "The following incident is ready for inspection :<br> 

incident number : #Session.inc_id#<br> 
Location : #getincSummary.UNiT_NAME#<br> 
Description : #getincSummary.HEADLlNE#<br> 
#getlncSummary - DESCRlPTlON#<br> 

I am submitting the following invoice : 
#i nvoi ce_jnessage_text# 

<p>#FORM - f ul l_i nvoi ce_text#</p> 

Regards , 

#Session.first_name# #Session.mi# #session.last_name# 

</PRE> 

■> 

</CFOUTPUT> 

<! — call the send_msg template to process the message — > 
<CFINCLUDE template-" send jisg. lpa"> 

<CFSET back = "ven„home.lpa"> 

<CFIF "NO" is #delivered#> 

<CFSET thanks.text = '#thanks_text#<font color="red">WARNlNG - could not find a 
channel available to deliver to recipient.</font>'> 

<CFELSE> 

<! — update incident record to changa state to ready_for_inspection — > 
<CFQUERY NAME="updateState" DATASOURCE="#dsn#"> 
update INCIDENTS 

set STATE_ID = #Application.inc_state_ready_for_inspection# 

where ID = #Session.inc_id# 

</CFQUERY> 
</CFIF> 

<CFINCLUDE TEMPLATE="thanks . 1 pa"> 
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venjiome.lpa 

<html> 
<head> 

<meta http-equiv=expires content=0> 
<title>Vendor home page</title> 
</head> 

<body bgcol or= M <CFOUTPUT>#Sessi on . bgcol or#</CFOUTPUT> M > 

<hl><f ont f ace="Ari al "><CFOUTPUT>#Sessi on . enti ty_name#</CFOUTPUT> Servi ce 
Revi ew</f ontx/hl> 

<HR> 

<CFINCLUDE TEMPLATE= ,, check_COOk.lpa"> 

<cfinclude TEMPLATE="cor r_i nf o_tabl e . 1 pa"> 

<p> </p> 

<CFSET my_now = #now()#> 

<CFQUERY NAME="getActiveRfqs" DATASOURCE= ,, #dsn#"> 

Select ID ,INCIDENT_ID f HEADLINE .URGENCY, EXPIRATION from INC_VEN_Q 

where (entity_service_id = #session.ent_srv_id#) and 
(expiration > #my_now#) and 

((state^id = #Application.inc_state_rfq_sent#) or 
(STATE_ID = #Application.inc_stateL.time_bicLreceived#) or 
(STATE_ID = #Application.inc_state_time_bid_accepted#) or 
(STATE_ID = #Application.inc_state.complete_bid_received#)) 
order by EXPIRATION 

</CFQUERY> 

<CFIF 0 LT #getActiveRfqs.RecordCount#> 

<h2xfont face= M Arial">New Requests for Quote :</fontx/h2> 

<CFOUTPUT> 

<table border="0" width="100%" cellspacing^"!" cellpadding="2"> 
<tr> 

<td bgcol or="#sessi on . header_col or#"xh3xf ont f ace="Ari al ">Expi res</f ontx/h3 
</td> 

<td bgcol or="#Sessi on . header_col or#"xh3xf ont f ace="Ari al ">Urgency</f ontx/h3 
</td> 

<td bgcol or="#Sessi on. header_color#"xh3xf ont face="Arial ">Subject</fontx/h3 
</td> 
</tr> 

</CFOUTPUT> 

<CFSET line^color = ,f #Application.line_color_b_vendor#"> 
<CFLOOP QUERY="getActiveRfqs"> 

<CFIF "#line„color#" IS "#Application.line„color_a_vendor#"> 
<CFSET line_color = "#Appli cation. line_color_b_vendor#"> 

<CFELSE> 

<CFSET line_color = "#Application.lineL_color_a_vendor#"> 

</CFIF> 

<trxCFOUTPUT> 

<td bgcol or="#line_color#"xf ont face="Arial "> 

#Date Format (get Act i veRf qs . EXPIRATION , Appl i cati on - 1 p_date_mask)# 
#Ti meFormat (getActi veRf qs . EXPIRATION , Appl i cati on . 1 p_ti me_mas k) #</f ontx/td> 

<td bgcol or="#l i ne_col or#"xtabl ext r> 
<td 

<CFIF "emergency" IS #getActi veRf qs . URGENCY#> 
bgcol or=" red" 

<CFSET urge = "#getActiveRfqs.URGENCY#"> 
<CFELSEIF "urgent" is #getActiveRfqs.URGENCY#> 
bgcol or="orange n 
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veruhome . 1 pa 
<CFSET urge = M #getActiveRfqs.URGENCY#"> 
<CFELSEIF "asap" IS #getActiveRfqs.URGENCY#> 
bgcol or="yel low" 

<CFSET urge = H #getActi veRfqs.URGENCY#"> 
<CFELSEIF "nap" IS #getActiveRfqs.URGENCY#> 

bgcol or="#l i ne_col or#" 

<CFSET urge = n  "> 
<CFELSE> 

<CFSET urge = "unknown"> 

</CFIF> 
> 

<font face="Arial "xsman>#urge#</smallx/fontx/td> 
</t rx/tabl ex/td> 

<td bgcol or="#line_color#"xfont face="Arial "> 
<a 

href="ven_rf q - 1 pa?i nc_i d=#getActi veRf qs . lNClDENT_iD#&ent_srv_i d=#Sessi on . ent_srv_i d# 
">#getActi veRf qs . HEADLlNE#</ax/f ontx/td> 

</CFOUTPUTx/tr> 
</CFLOOP> 
</tabl e> 

</CFlF> <! — If there are any open rfqs — > 
<CFQUERY NAME="getlncSummary" DATASOURCE="#dsn#"> 

SELECT * from INCSUMMARY 

where id in (select incident_id from inccorrs 

where ROLE = 'vendor 1 and CORR_ID = #Sessi on. cor respondents d# and 
STATUS <> 'retired') 

order by ID; 
</CFQUERY> 

<CFIF 0 LT #getincSummary.RecordCount#> 

<h2xfont face="Arial">Service Already in Progess:</fontx/h2> 

<CFOUTPUT> 

<table border-"0" width="100%" cellspacing="l" cellpadding="2"> 
<tr> 

<td bgcol or="#Sessi on. header_color#" xh3xfont face="Arial ">incident 
number</fontx/h3> 
</td> 

<td width="14%" bgcol or="#Sessi on. header_color#" xh3xfont 
f ace="Ari al ">who</f ontx/h3x/td> 

<td bgcol or="#sessi on. header_color#" xh3xfont face="Arial">urgency 
</fontx/h3x/td> 

<td bgcol or="#Sessi on. header_color#" xh3xfont face="Arial ">Status</fontx/h3> 
</td> 

<td width="25%" bgcol or="#Sessi on. header_color#" xh3xfont 
f ace="Ari al ">Descri pti on</f ontx/h3> 
</td> 

<td width="25%" bgcol or="#Sessi on. header_color#" xh3xfont face="Arial">Last 
Acti on</f ontx/h3> 
</td> 

<td width="25%" bgcol or="#Sessi on. header_color#" xh3xfont face="Arial ">Action 
requi red</f ontx/h3x/td> 
</tr> 

</CFOUTPUT> 

<CFSET last_inc_id = "-!"> <! — used for eliminating duplicates — > 
<CFSET line__color = "#Appli cation. line_color_b_vendor# > 
<CFLOOP QUERY="getincSummary ,, > 

<! — <><> This is bogus and should be fixed in the DB — > 
<CFIF #last_inc_id# IS not #getincSummary.iD#> 
<CFSET last_inc_id = #getincsummary.n>#> 
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<CFIF H #line_color#" IS "#Application.line_color_eL_vendor#"> 

<CFSET line_color = "#Application.line_color_b_vendor#"> 
<CFELSE> 

<CFSET line_color « ,f #Application.line_color_a_vendor#"> 

</CFIF> 

<CFQUERY NAME="getReporterEmail M DATASOURCE="#dsn#"> 
select val from CORR_CHANNEL_rpt 
where NAME = 'e.maiT and CORRESPONDENT.^ = 
#getlncsummary . REP0RTING^PARTY_ID# 

</CFQUERY> 
<CFOUTPUT> 

<tr> 

<td bgcol or= M #line_color#" ><a 
href =" ten_i nc . 1 pa?i nc_i d=#getlncSummary . lD#"xsmal 1 ><f ont 
f ace="Ari al >#getlncSurranary . lD#</f ontx/smallx/ax/td> 
<td width="14%* bgcol or="#line_color#" xfont face="Arial ,, xsman><a 
href="mailto:#getReporterEmail - VAL#">#get IncSummary . R_FIRST_NAME# 

#getincSummary . Rjvii# #getincSummary . R_LAST_NAME#</ax/smal 1 x/f ontx/td> 

<td bgcol or="#l i ne_col or#"xtabl ext r> 
<td 

<CFIF "emergency" IS #getlncSummary.URGENCY#> 
bgcol or=" red" 

<CFSET urge = "#get IncSummary. URGENCY#"> 
<CFELSEIF "urgent" IS #getlncSummary.URGENCY#> 
bgcol or="orange" 

<CFSET urge = "#getincSummary.URGENCY#"> 
<cfelseif "asap" IS #getincSummary.URGENCY#> 
bgcol or="yel low" 

<CFSET urge = "#getlncSummary.URGENCY#"> 
<CFELSEIF "nap" IS #getlncSummary.URGENCY#> 

bgcol or="#l i ne_col or#" 

<CFSET urge = " "> 
<CFELSE> 

<CFSET urge = " unknown "> 

</CFIF> 
> 

<f ont f ace= M Ari al "><small>#urge#</smal lx/f ontx/td> 
</t rx/tabl ex/td> 

<td bgcol or="#line_color#" xsmallxfont 
f ace="Ari al ">#getlncSummary . STATUS#</f ontx/smallx/td> 

<td width= ff 25%" bgcol or= n #line„color#" xsmallxfont 
f ace=" Ari al ">#qetlncsummary . HEADLINE#</f ontx/smal 1 ></td> 

<td width=*25%" bgcol or="#line_color#" xsmallxfont 
f ace="Ari al ">#getlncSummary . LAST^ACTiON#</fontx/sman></td> 

<td width=*25%" bgcol or="#line_color#" xsmallxfont face="Arial"> 
<CFIF "reported" is #getincSummary.STATUS#> 

waiting for rfq (should never appear) 
<CFELSEIF "marked^bi liable" is #getlncSummary.STATUS#> 

Tenant has been informed that this incident is billable, (should never appear) 
<CFELSEIF "recognized__by_propman" is #getIncSummary.STATUS#> 
waiting for propman to select vendors (should never appear) 
<CFELSEIF "rfq_sent" is #getlncSummary.STATUS#> 

RFQ sent to vendor and waiting for response 
<CFELSEIF "time_bid_received" is #getlncSummary.STATUS#> 

Propman is reviewing time bid 
<CFELSEIF "time_bid_accepted" is #getIncSummary.STATUS#> 

<A HREF="ven_rfq.lpa?inc_id=#qetincSummary.iD# ,, >Prepare cost bid</a> 
<CFELSEIF "complete_bid_received is #getlncSummary.STATUS#> 

Waiting for property manager to review bid 
<CFELSEIF "job_clearea_for_work" is #getlncSummary.STATUS#> 
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OBSOLETE STATE 
<CFELSEIF "being_serviced" is #getlncSummary.STATUS#> 

Service authorized <br> 

<a href =" ven_dcl_done . 1 pa?i nc_i d=#getIncSummary . ID#">Decl are 
completion</a> or<br> 

<a href ="ven_exten_ci rcum . 1 pa?i nc_i d=#getincSummary . iD#">Report 
extenuating ci rcumstances</a> 

<CFELSEIF "ready_for_inspection" is #getlncSummary.STATUS#> 

Awaiting confirmation of iob completion 
<CFELSEIF n worlc_ok_by_tenant is #getlncSummary.STATUS#> 

Awaiting confirmation of job completion 
<CFELSEIF work_okJ>y_propman" is #getlncSummary.STATUS#> 

Awaiting confirmation of job completion 
<CFELSEIF n work_okJ>y_both" is #getincSummary.STATUS#> 

Job confirmed completed 
<CFELSEIF "retired" is #getlncSummary.STATUS#> 

(retired - no further action needed) 
<CFELSEIF "vendor_hold_on_extra" is #getlncSummary.STATUS#> 

waiting for Property Manager to approve of PO extension 
<CFELSEIF "job_suspended_on_cost_overrun" is #getincSummary.STATUS#> 

Job cancelled 

<CFELSE> 

no known action 
</CFIF> 

</f ontx/smal 1 ></td> 
</tr> 

</CFOUTPUT> 

</CFiF> <! — this is not a duplicate — > 

</CFLOOP> 

</table> 

</CFlF> <! — if there are open incidents — > 

<HR> 

<CFSET date_human = DateFormat(Now(), Appli cation. lp_date_jnask)> 

<CFOUTPUT> 

<pxfont face="Arial">Date this page was created: #date_human#</fontx/p> 

</CFOUTPUT> 

<pximg src="logo.GlF" alt= M logo.GlF"x/p> 
</body> 
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<! — verurf q - the vendor's request for quote form. 
Copyright 2000, Landport, Inc. All rights reserved 

— > 

<CFPARAM NAME="URL.ent_Srv_id"> 

<CFSET Session.ent_srv_id = "#URL.ent_srv_id#"> 

<! — get the incident ID. We check the Session variable 
first cas accessed from a logged in correspondent), then 
from the URL (someone clicking in from the outside). — > 
<CFIF lsDefined("URL.inc_id ,, )> 

<CFSET Session.inc_id = "#URL.inc_id#"> 
<CFELSEIF isDef i ned ("Sessi on . i nc_i d")> 

<! — all OK, do nothing — > 
<CFELSE> 

<font color="red">Error - no incident def i ned</f ont> 
</body></html><CFABORT> <! — o<> there must be a better way — > 

</CFIF> 

<CFQUERY NAME= H getServiceMrg" DATASOURCE="#dsn#"> 

select ENTITY_NAME , PRIMARY.. CONTACT , SERVICE__CONTACT , SERVICE from SERVICE_MRG 

where entity_service_id = #URL.ent_srv_id# 

</CFQUERY> 

<CFIF #getServiceMrg.SERVICE_CONTACT# GT 0> 

<CFSET contacted = #getServiceMrg.SERViCE_CONTACT#> 

<CFELSE> 

<CFSET contacted = #getServi ceMrg . PRlMARY_CONTACT#> 
</CFIF> 

<CFSET Session. cor respondents d = "#contact_id#"> 
<CFQUERY NAME= ,, getContactlnfo M DATASOURCE="#dsn#"> 

select ENTITY_NAME,FIRST_NAME,MI i LAST_NAME from USER^MRG 

where CORRESPONDENT_lD « #Session.correspondent_id# 

</CFQUERY> 

<CFQUERY NAME="getincSummary H DATASOURCE="#dsn#"> 

sel ect ID , STATUS , HEADLINE , DESCRIPTION , UNIT.ID , 

UNIT_NAME f SERVICE.ID , SERVICE_NAME , URGENCY , PROPMAN_ID , 
REPORTING_PARTY_ID , R_FIRST_NAME , R_MI , R_LAST„NAME from INC3UMMARY 

where ID = #session.inc_id# 

</CFQUERY> 

<! — Verify that we are indeed on the list of vendors allowed for 

this incident — > 
<CFQUERY NAME="verifyVendorSpecified" DATASOURCE="#dsn#"> 
select 'x' from incvendors 
where INCIDENT__ID = #Session.inc_id# and 
ENTITY_SERVICE_ID = #URL.ent_Srv_id# 
</CFQUERY> 

<CFIF 0 GE #verifyVendorSpecified.RecordCount#> 

<font color="red">Error - you have not been authorized to service this 
incident</font> 

</bodyx/html><CFABORT> <! — <><> there must be a better way — > 

</CFIF> 

<CFQUERY NAME="getlncCreationDate" DATASOURCE="#dsn#"> 
select TIMESTP from INC_EVENTS 

where INCIDENT_ID = #Session.inc_id# and 'create* = event_type 

</CFQUERY> 

<CFQUERY NAME="getPropmancomments" DATASOURCE="#dsn#"> 
select COMMENT , TIMESTP from INC_CORR__COMMENTS 

where incident_id = #Session.inc_id# and WH0_id = #getincsummary.PROPMAN_lD# 
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and COMMENT_TYPE = 'comment 1 

</CFQUERY> 

<CFQUERY NAME="getPropmaninst ructions" DATASOURCE="#dsn#"> 

select COMMENT , TIMESTP from INC_CORR_COMMENTS 

where INCIDENT_ID = #session.inc_id# and WHO_iD = #getincSummary.PROPMAN_iD# 
and COMM E nt_typ E = 1 pm_ven_i nstruct ' 
</CFQUERY> 

<! — get the reporter's contact info — > 

<CFSET correspondents = ,, #getincSummary-REPORTING L .PARTY_lD# ,, > 
<CFINCLUDE TEMPLATE-"get_corr_i nf o . 1 pa"> 

<CFQUERY NAME="getPropmanName n DATASOURCE="#dsn#"> 

Select FIRST„NAME,MI, LAST^NAME from USERJ^IRG 

where correspondents = #getincSummary.PROPMAN„iD# 

</CFQUERY> 

<CFQUERY NAME^'getPropmanEmail" DATASOURCE="#dsn#"> 

select val as E_MAIL from CORR^INFO 

where ID = #getincSummary.PROPMAN_lD# and 
NAME = 'e_maiV 
</CFQUERY> 

<CFIF 0 is #getPropmanEmail .RecordCount#> 
<CFSET propman_email = ""> 

<CFELSE> 

<CFSET propman_email = #getPropmanEmail .E_MAIL#> 

</CFIF> 

<CFQUERY NAME="getRfq" DATASOURCE="#dsn#"> 
Select ID t COST_LIMIT , TIME_LIMIT , 
TIME_UNITS , CONTACT-STRATEGY, 

SERIAU_TIMEOUT,RECS_TO_FORWARD,RESPONSE_REQ from RFQS 
where INC_ID = #Session,inc_id# 
</CFQUERY> 

<CFSET Session. rfq_id - #getRfq.ID#> 

<CFQUERY NAME="getRfqMsq" DATASOURCE="#dsn#"> 
Select REFERENCED from INCLEVENTS 

where INCIDENT_ID = #Session.inc_id# and 'rfq_sent' = EVENT_TYPE 
</CFQUERY> 

<CFSET united = "#getlncSummary.UNlT_ID#"> 
<CFINCLUDE TEMPLATE="uni t2address . 1 pa"> 
<html> 

<head> 

<title>Vendor RFQ</title> 
</head> 

<body bgcol or="<CFOUTPUT>#Sessi on . bgcol or#</CFOUTPUT>"> 
<hlxfont face= n Arial">Request for Quote</fontx/hl> 
<hr> 

<CFOUTPUT> 

<f orm method="post " acti on=" ven_rf q_decl i ne . 1 pa?ent_s rv_i d=#URL . ent_s rv_i d#"> 
<table 

width="575" cellpadding="0" cellspacing= ,l O"> 
<tr> 

<td width= M 404 M xtable cellpadding="4" censpacing="0" border="0" width="389 H 
bgcol or="dcdcdc"> 
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<tr> 

<td width="319 ,, xfont face="arial , helvetica"xb>Step 1: Review incident 
and work order 

from Property Manage r</bx/fontx/td> 
<td align="center" width="54"xfont 
face="arial , hel veti ca"xb>or</bx/fontx/td> 
</tr> 
</table> 
</td> 

<td width= ,, 171"xinput type= M submit" name="decline" valuer" Decline to Bid"> 

</td> 

</tr> 
</table> 
</form> 

<CFSET date_human = DateFormat(Now() , Application.lp_date_mask)> 
<tabl e> 
<tr> 

<tdxsmallxfont face="Arial "> 

<b>From:</b> <a href^'mailto^propman^email* 1 ^ 

#getPropmanName . first_name# #getPropmanName - mi# 
#getPropmanName . last_name#</ axb r> 

<b>To:</b> <a href="ven_pend_req.lpa"> 

#getContactinf o . first_name# #getContactinf o . Mi# #getContactlnf o . LAST_NAME# , 

#getContactinfo. ENTiTY_NAME#</a> 
</font></sman><pxsman><f ont f ace="Ari al "><b> 
Servi ce Locat i on : </b>#getincSumma ry . UNiT_NAME#<br> 
<b>Service Address: </bxbr> 
#addressl#<br> 
#city#, #state# #zip#<br> 
<b>Tenant name: </b> 

#getlncSummary.R_FlRST_NAME# #getincSummary.Rjwil# 
#getlncsummary . R_LAST_NAME#<br> 

<b>Tenant phone: </b>#of f i ce_phone#<br> 

<b>Tenant email: </bxa href= mailto:#email_addr#">#email_addr#</axbr> 
<form 

acti on="http : //www. mapquest . com/cqi -bi n/i a_f i nd?screen=i a_f i nd&l i nk=i a-map- resul t&ui 
d=u4x7oec4j233hlpu:a55azn!4z" metnod="POST"> 



screen" value="ia-map-form"> 
'1 i nk" val ue= M i a-map- resul t"> 
'ui d" val ue="u4x7oec4j233hlpu : aSSaznl 4z"> 
■random" value="857"> 
'event" value="find_search"> 
'address" value= n #addressl#"> 
'city" value="#city#"> 
'state" value="#state#"> 
'zip" value="#zip#"> 
'Find Map" value="Get Map"> 



<input type="hidden" name= 
<input type="hidden" name= 
<input type="hidden" name= 
<input type="hidden" name= 
<input type="hidden" name= 
<input type="hidden" name= 
<input type="hidden" name= 
<input type="hidden" name= 
<input type="hidden" name= 
<input type="Submit" name= 

<input type="hidden" name=" country" value="USA"> 
</form> 

<pxfont face="Arial"xb>lncident Number: </b>#Session.inc_id#<br> 
<b>Service type: </b>#GetlncSummary.SERVlCE_NAME#<br> 
<b>Filing Date of Request: </b> 

#DateFormat(getlnccreationDate.TiMESTP f 
Appl i cati on . 1 p_date_mask)#</f ontx/smal 1 ></p> 

<pxfont face="Arial"xb>Problem Description: </bx/fontx/smallx/p> 
<table border="0" width= ,, 100%" bgcolor= r, C0C0C0" cellspacing="0" cellpadding="0"> 
<tr> 

<td wi dth="100%"xb>#GetlncSummary . HEADLlNE#</bxbr> 
#GetlncSummary.DESCRlPTiON#</td> 
</tr> 
</table> 
</CFOUTPUT> 
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<cfif 0 LT #GetPropManlnst ructi ons. RecordCount#> 
<pxsmallxfont face= ,, Arial ,l xb>Work order: 

<table border="0" width="100%" cellpadding="0" cellspacing="0" 
bgcolor="cOCOCO"> 
<tr> 

<td width="100%"> 

<CFLOOP QUERY="getPropmanlnst ructi ons"> 

<CFOUTPUT>#DateFormat (get Propmanlnst ructi ons . TIMESTP , 
Appl i cati on . 1 p_date_mask)# 

#get Propmanlnst ructi ons . COMMENT#<br> </CFOUTPUT> 
</CFLOOP> 
</td> 
</tr> 
</table> 

</CFIF> 

<! — <>o check to see that the propman has released his comments too — > 
<CFIF 0 is not #GetPropMancomments.RecordCount#> 

<pxfont face="Arial"xb>Property Manager comments: 
<table border="0" width="100%" cellpadding="0" cellspacing= M 0" 
bgcolor="cOcOcO"> 
<tr> 

<td width= H 100%"> 

<CFL(K)P QUERY="getPropmancomments M > 

<CFOUTPUT>#DateFormat(getPropmancomments. timestp, 
Appl i cati on - 1 p_date_mask)# 

#getPropmanComments . COMMENT#<br> </CFOirTPUT> 
</CFLOOP> 
</td> 
</tr> 
</tabl e> 
</CFIF> 
<CFOUTPUT> 

<pxfont face= ,, Arial"xb>Urgency : </b>#getincSummary.URGENCY#<br> 

</CFOUTPUT> 

<! — compute latest job start date — > 

<! — <><> should check to see that start date is later then now(). If it is 
later, 

then this page should display EXPIRED at the top — > 
<CFIF "days" is #GetRf q .TIME_UNITS#"> 
<CFSET my_date_part = "d"> 

<CFELSEIF "hours" is "#GetRfq.TIME_UNITS#"> 

<CFSET my.date_part = "h"> 

<CFELSEIF "minutes* 1 is "#GetRfq.TIME_UNITS#"> 

<CFSET my_date_part = "m u > 
<CFELSE> 

<CFSET my_date_part = "d"> 

<! — o<> This should be logged as an error — > 

</CFIF> 

<cfset job_start.date = #DateAdd( 

my_date.part f GetRf q . time_limit , getlncCreationDate.TlMESTP)#> 

<CFOUTPUT> 

<b>Job must start by : </b>#DateFormat(job„start_date, 
Appl i cati on . 1 p_date_masfc)# 

#Ti meFormat (iob_start_date p Appl i cati on . 1 p_ti me_jnask)#<br> 
<b>Budget : </b>$#getRf q . COST_LlMlT#</f ontx/px/td> 
</tr> 
</table> 

<f orm method="post " acti on="ven_rf q_decl i ne . 1 pa?ent_srv_i d=#URL . ent_srv_i d#"> 

</CFOUTPUT> 

<table width="575" cellpadding="0" cellspacing= u O"> 
<tr> 
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<td width="308"xtable cellpadding^'4 1, cellspacing="0" border="0" width="296" 
bgcolor="#dcdcdc n > 
<tr> 

<td width="205"xfont face="arial ,helvetica"xb>Step 2: Respond to 
RFQ</bx/fontx/td> 

<td align="center" width="75"xfont 
f ace="ari al , hel veti ca"xb>or</bx/f ontx/td> 
</tr> 
</table> 
</td> 

<td width= M 267"xinput type="submit" name= ,, decline" value="Decline to Bid"> 

</td> 
</tr> 
</tabl e> 
</form> 

<tabl e> 
<tr> 

<tdxbi gxf ont face="Arial "><b>Dear</b> <a href="ven_pend_req.lpa"> 

<CFOUTPUT> 

#getContactinf o . first_name# #getContactinf o . Mi# #getContactinf o . last_name# 

</CFOUTPUT> 
</axb> , </bx/f ontx/bi qxpxbi gxbxf ont 
face="Arial ">we are in need of service at the property listed above and request 
a quote 

for service.   if you wish to respond to this RFQ (Request For Quote), 
please answer 

the f ol 1 owi ng questi ons : </f ontx/bx/bi gx/td> 
</tr> 
</tabl e> 

<form method^" POST" action="verurfq_thanks.lpa"> 
<pxbxfont 

face="Arial">Based on the information above, what service would you like to 

perform: </f ontxf ont 

face="Arial" color="#FF0000">[please select one of the foil owi ng]<br> 

</f ontx/bxi nput type="radio value="site_survey" name="first_action"> <font 

face="Arial ">Perform 

a site Survey or more information is required before bidding on the Work Order<br> 

<input type=Vadio" value="bid" name="first_action" checked> Bid on the Work order 
without a site Survey</fontx/p> 

<div align="left"xpxfont face="Arial ,, xb>what is the total estimated cost of the 

service you selected above?</b> </fontxfont face="Arial" 
col or="#FF0000"xb> [opti onal ] </bx/f ontxf ont 

face="Arial "xbr> 

</fontxinput types"text" name="cost_bid" size="20"x/p> 

</divxdiv align="left"xpxfont face="Arial"xb>what date are you available to 

?erform the service?</b>  </fontxfont face="Arial" 
or="#FF0000"xb>[requi red] </bx/f ontxf ont 
face="Arial"> </fontx/p> 
</divxp> 

<CFSET prefix = "start_"> 

<CFINCLUDE TEMPLATE="date_time_sel .lpa"> 

</p> 

<pxfont face="Arial"xb>what date can you complete the service?</bxbig> 
</bi gx/f ontxf ont 

face="Arial " color=="#FFOOOO"xb>[requi red] </bx/f ontxf ont 
f ace="Ari al "x/f ontx/p> 

<p> 

<CFSET prefix = "end_"> 

<CFINCLUDE TEMPLATE="date_time_sel ,lpa"> 

</p> 

<pxbxfont face="Arial">Do you have additional comments or preliminary 
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i nst ructi ons : <f ont 

color= ,, #FF0000"> </fontx/fontxfont face="Arial" 
col or="#FF0000"> [opti onal ] </f ontx/bx/p> 

<pxtextarea rows="9" name="ven_cornments" cols="62"x/textarea><br> 

Stable cenpadding= ,, 4" cellspacing="0" border= ,, 0" width="423" bgcolor="#dcdcdc"> 
<tr> 

<td xfont face="arial f helvetica"xb>Step 3: </bx/fontx/td> 
<td xfont face="arial ,helvetica"xinput type="submit" value=" Preview BID" 
name="previ ew_bi d"x/f ontxf ont f ace= ari al f he! veti ca"xb> , </bx/f ontx/td> 
<td xfont face="arial ,helvetica"> 

<input type="submit" value="send comments only without bid" 
name= comments_only"x/fontx/td> 

<td align="center"xfont face="arial , helvetica"xb>or</bx/fontx/td> 
<tdxfont face="arial ,helvetica"> 
</form> 
<CFOUTPUT> 

<f orm method="post" acti on="ven_rf q_decl i ne . 1 pa?ent_srv_i d=#URL . ent_srv_i d#"> 
</CFOUTPUT> 

<input type="button" value-"Decline to bid" name^"decline"> </fontx/td> 
</tr> 
</table> 
</form> 

<hr> 

<! — <><> Print this only of the propman has released this class if data — > 

<CFSET serviced d = "#getincSummary.SERVlCE_ID#"> 

<CFSET service_name = n #getlncSummary.SERVlCE_NAME#"> 

<cfset unit_id = "#getlncsufflmary.UNiT_iD#"> 

<CFSET unit_name = "#getlncSummary.UNIT^AME# f, > 

<cfinclude template=" servi ce_hi st . 1 pa"> 

<hr> 

<CFSET date_human - DateFormat(Now() , Application.lp_date_mask)> 
<CFOUTPUT> 

<p>Date this page was created: #date_human#</p> 
</CFOUTPUT> 

<pximg src="logo.GlF" alt="logo.GiF"x/p> 
</body> 
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<! — Copyright 1999,2000 LandPort All rights reserved — > 

<CFPARAM NAME="Session.inc_id"> 
<CFPARAM NAME="URL.ent_srv_id"> 

<! <HTML> 

<HEADxTlTLE>Decline to bid on incident 
<CFOUTPUT>#Sessi on . i nc_i d#</CFOUTPUTx/TITLE> 
</HEAD> 
<BODY> > 

<! — 1) insert an incident_event - vendor decline — -> 
<CFSET my_now = #createOdbcDateTime(Now())#> 
<CFQUERY NAME="insertlncEvent" DATASOURCE= M #dsn# ,l > 

insert into inc_events (incident_id > event_type,reference_id,who_id,timestp) 
values 

(#Session.inc_id#, 'vendor_decline f , #URL.ent_srv_id#, 
#Sessi on . cor respondent^ d# , #my„now#) 
</cfquery> 

<! — 2) set inc_vendors. declined to yes — > 
<CFQUERY NAME="updatelncVen" DATASOURCE= M #dsn#"> 
update INC_VENDORS 
set STATE = 'closed' 

where (incident_id = #session.inc_id#) and 
(ENTITY_SERVICE_ID = #URL . ent_srv_i d#) 
</CFQUERY> 

<!--- where (incident_id = #Session.inc_id#) and 
(entity_service_id = #URL . ent_STV_i d#) ---> 

<! — Get the rfq — > 

<CFQUERY NAME="getRfq" DATASOURCE="#dsn#"> 

select ID from RFQS where INC^ID = #session.inc_id# 

</CFQUERY> 

<CFSET rfq_id = "#getRfq.lD#"> 

<! — 3) select next vendor — > 
<CFINCLUDE TEMPLATE=" rf q2next_ven . 1 pa"> 

<! — 4) send mail to propman regarding declination and selection of next vendor 

— > 

<! — <><> needs to be implemented, skipped here because the propman may 

not want to see each turn of the state machine as a message. The propman can 
observe the progress via the events list of an incident right now. — > 

<CFIF 'YES' is not #found_next_vendor#> 

<! — 1) if out of vendors, set incident state back to recognizecLby_propman - 
<CFQUERY NAME="updatestateToRbp" DATASOURCE="#dsn#"> 
update INCIDENTS 

set STATE_ID = #Application.inc_state_recognized_by_propman# 
where ID = #Session.inc_id# 

</CFQUERY> 

<! — Add an event to this incident - out of vendors — > 
<CFQUERY NAME="insertincEvent" DATASOURCE="#dsn#"> 

insert into INC.EVENTS (INCIDENT_ID , EVENT__TYPE f REFERENCE_ID , WHO_ID f TIMESTP) 

val ues 

(#sessi on . i nc_i d# , 1 out_of _vendor s ' , 0 , 
#sessi on . cor respondents d# , #my__now#) 
</CFQUERY> 

<! — send a message to the propman informing him that this 

incident has stalled — > 
<CFTRANSACTION> 
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<CFQUERY NAME="insertMessage H DATASOURCE= ,, #dsn# u > 

insert into MESSAGES (TIMLCREATED.MSGJTEMPLATE, SENDER, SUBJECT) 
val ues (#my_now# , #Appl i cat i on . msg_rf q_decl i ne# , 0 , 
'Out of vendors for incident #Session.inc_jd#') 

</CFQUERY> 

<cfquery NAME="getMessageld" DATASOURCE="#dsn#"> 
select max (ID) as MAX_ID from MESSAGES 

</CFQUERY> 
</CFTRANSACTION> 

<CFSET my_message_id = #getMessageld.MAX_lD#> 
<CFQUERY NAME="insertMsgComponent" DATASOURCE="#dsn#"> 

insert into MSG_COMPONENTS (MSG_ID f MSG_ELEMENT_ID , VAL) 
val ues 

(#my_message_i d# , #Appl i cati on . msg_el _i nci dent_i d# , 1 #Sessi on . i nc_i d# 9 ) 
</CFQUERY> 

<! — get the propman's correspondent ID — > 
<CFQUERY name= getinci dent" DATASOURCE="#dsn#"> 

select PROPMAN_ID , UNIT. NAME , HEADLINE , DESCRIPTION from INC_SUMMARY 

where ID = #Session.inc_id# 

</CFQUERY> 

<CFSET my_recipient_id = "#getlncident.PROPMAN_lD#"> 

<CFOUTPUT> 

<CFSET subject = "incident #Session.inc_id# - All vendors decline"> 
<CFSET body - '<PRE>All of the vendors have declined to service incident : 

incident number : #Session.inc_id# 

Location : #getinci dent . UNIT_NAME# 

Description : #getlncident.HEADLlNE# 

#getinci dent . description* 

You may need to change this incidents work order parameters or choose 
new vendors. See <A 

HREF="#Appl i cati on . exte rn_url _base#/ten_i nc . 1 pa?i nc_i d=#getRf q . lNC_lD#>the i nci dent 
home page </a>for more details. 

(automatically generated message) 

</PRE> 

•> 

</CFOUTPUT> 

<! — call the sendjisg template to process the message — > 
<CFINCLUDE TEMPLATE="send_msg . 1 pa"> 

</CFIF> 

<cfset thanks_text = "The property manager has been informed that you have declined 
to bid."> 

<CFSET title = "Declined to bid"> 
<CFSET back = "venJiome.lpa"> 

<cfif "NO" is #delivered#> 

<CFSET thanks_text = '#thanks_text#<brxfont color="red">WARNlNG - could not find 
a channel available to deliver to recipient.</font>'> 

<CFELSE> 

<! — the incident's state should already be rfq_sent — > 

</CFIF> 

<CFINCLUDE TEMPLATE=" thanks . 1 pa"> 
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<! — Copyright 1999,2000 LandPort All rights reserved ---> 

<CFPARAM NAME="Session.inc_id"> 

<CFPARAM NAME="Sessi on . rf cui d"> 

<CFPARAM NAME="Sessi on . correspondent.! d"> 

<CFPARAM NAME="Session.ent_srv_id"> 

< ! <HTML> 

<HEADxTITLE>Bid ACCepted</TITLE> 

</HEAD> 

<BODY> > 

<! — determine the mode of this action. This depends upon which 

button that the vendor pressed — > 
<CFIF #lsDef i ned("FORM . previ ew_bi d")#> 

<CFSET mode = "accept"> 
<CFELSEIF #lsDefined("FORM.conranents_only")#> 

<CFSET mode = " comment s_only"> 

<CFELSE> 

<! — <><> Error - unrecognized button — > 
</CFIF> 

<CFSET my_now = #createOdbcDateTime(Now())#> 
<CFSET fast_tracked = "N0"> 

<CFIF "accept" IS "#mode#"> 

<! — <><> indent this whole block ! — > 

<! — Form the start and end times — > 

<! — if PM, convert hours — > 

<CFSET start_hour_24 = #start_hour#> 

<CFSET end_hour_24 = #end_hour#> 

<CFIF "PM" is #FORM.start_period#> 

<CFSET start_hour_24 = (#start_hour_24# + 12)> 

</CFIF> 

<CFIF "PM" IS #encLperiod#> 

<CFSET end_hour_24 = (#end_hour_24# + 12)> 
</CFIF> 

<CFSET start_time = CreateDateTi me (FORM . start_year , FORM. start_month , FORM. start_day , 

FORM . startjiou r , FORM . start_mi nute , 0)> 
<CFSET encLtime = CreateDateTimeCFORM.encLyear^ORM.encLmonth.FORM-encLday, 

form . end_hou r , FORM . end_mi nute , 0) > 
<! — <><> insert the ability for the user to not specify hours or minutes (default 
to midnight ? — > 

<! — <><> insert checks to see whether the start time < end time and both times are 
later than 

now() — > 

<! — <><> check to see whether comments.only has been selected, if so do not send 
whole bid — > 

<! — if the cost bid is not present, then set it to zero — > 

<CFSET cost_bid = "0"> 

<CFI F #lsDef i ned ( " form . cos t_bi d " ) #> 

<CFIF IS NOT "#F0RM.COSt_bid#"> 

<CFSET cost_bid = "#FORM.cost_bid#"> 

</CFIF> 
</CFIF> 

<! — create a bid record — > 
<CFTRANSACTION> 

<CFQUERY NAME="insertBid" DATASOURCE="#dsn#"> 

insert into BIDS (ENT_SRV_ID,CORR_ID,RFQ_ID, FIRST^ACTION,COST_BID, 
START_TIME , END_TIME , VEN.COMMENTS) 

val ues (#Sessi on . ent_srv_i d# , #Sessi on . correspondent d# , 
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#Sessi on . rf q_i d# , ' #FORM - f i r st_act i on# ' , #cost_bi d# , 
#start_ti me# t #end_ti me# , ' #FORM . ven_comments# " ) 

</CFQUERY> 

<CFQUERY NAME="getBidld" DATASOURCE="#dsn#"> 

select max(iD) as max_id from bids 

</CFQUERY> 

</C FTRAN S ACTION> 

<CFSET bid_id = "#getBidld.MAX_ID#"> 

<! — Add an event to this incident - bid — > 
<CFQUERY NAME="insertlncEvent" DATASOURCE="#dsn#"> 

insert into INC-EVENTS (INCIDENT_ID , EVENT_TYPE , REFERENCE_ID , WHO_ID , TIMESTP) 

values 

(#Session.inc_id#, 'bid', #bid_id#, 
#Sessi on . cor respondents d# , #my.now#) 
</CFQUERY> 

<! — determine what kind of bid this is — > 
<CFIF "" is "#FORM.cost_bid#"> 

<CFSET state = #Application.inc_state„time_bicLreceived#> 

<CFSET cost_quote - "This is a service time quote only."> 

<CFELSE> 

<cfset state = #Application.inc_state_complete_bid_received#> 
<CFSET cost_quote = "The estimated cost for this work order is 
$#FORM.cost_bid#."> 

</CFIF> 

<! — update incident record to change state to reflect the type of bid received 

— > 

<CFQUERY NAME="updateState" DATASOURCE="#dsn#"> 
update INCIDENTS 

set STATLID = #state# 
where ID = #Session.inc_id# 

</CFQUERY> 

<! — Check this bid against the rfq to see whether it is fast trackable — > 
<cfinclude TEMPLATE="fast_track_bi d . 1 pa"> 

<CFIF ("YES" IS "#fast_t racked*") and ("accept" is "#mode#")> 
<CFSET com_text = "fast tracked"> 

<! — <><> Need to insert fast_track_ent_srv.po_num here — > 
<CFSET po_num = "fast_track"> 
<CFSET my_bid = "#bid_id#"> 
<CFSET thanks_text = "#FORM. ven_comments#"> 
<cfinclude TEMPLATE="accept_bi d . 1 pa"> 
</CFiF> <!— - fast_tracked - -> 

<! — Some variables set that will appear in the message — > 
<CFIF "bid_only" is "#FORM.first_action#"> 

<CFSET bid_msg = "This quote is for a site visit for the purposes of making a 
detailed quote only."> 
<CFELSE> 

<CFSET bid_msg = "This is a bid covers completion of the incident's work order. 
</CFIF> 

<CFSET bid_word = "bid"> 

<CFSET quote_guts = "Service start time : #DateFormat(start_time l 

Appl i cati on . 1 p_date_mask)# #Ti meFormat (start_ti me f Appl i cati on . 1 p_ti me_mask)#<br> 

Service completion time : #DateFormat(end_time, Appl i cati on. lp_date_mask)# 

#TimeFormat (end_ti me , Appl i cati on . 1 p_time_mask)#<br> 

#cost_quote#<br>"> 

<CFELSE> <! — this is the comments_only case — > 
<CFSET bid_msg = ""> 
<CFSET bid_word = "comment"> 
<CFSET quote_guts = ""> 
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</CFlF> <! — Form a real bid — > 

<! — attach a comment to this incident if one has been provided — > 
<CFIF lsDefined( n FORM.ven_comments")> 

<CFSET conutext = "#FORM.ven_comments#"> 

<CFINCLUDE TEMPLATE="add_i nc_com_core . 1 pa"> 

</CFIF> 

<! — Form a message to the propman about this bid — > 
<CFQUERY NAME="getlncSummar>r DATASOURCE= ,, #dsn#"> 

Sel ect ID , STATUS , HEADLINE , DESCRIPTION , UNIT.ID , 

UNIT_NAME , SERVICED , SERVICE_NAME , URGENCY , PROPMAN JD , 
REPORTINGl.PARTY_.ID , R_FIRST_NAME , R_MI , R_LAST_NAME from INC_SUMMARY 

where ID = #Session.inc_id# 

</CFQUERY> 

<C FTRAN S ACTION> 

<CFQUERY NAME="insertMessage n DATASOURCE="#dsn#"> 

insert into MESSAGES (TIME__CREATED , MSGJTEMPLATE , SENDER , SUBD ECT) 

val ues C#my_now# , #Appl i cati on . msg_bi d# , #Sessi on . correspondent.!* d# , 
'Bid on incident #Session.inc_id#') 

</CFQUERY> 

<CFQUERY NAME= H getMessageId n DATASOURCE="#dsn# M > 
select max (id) as max_id from messages 

</CFQUERY> 
</CFTRANSACTION> 

<CFSET my_jmessage_id = #getMessageid.MAX_iD#> 

<CFIF "accept" IS "#mode#"> 

<CFQUERY NAME="insertMsgComponent" DATASOURCE="#dsn#"> 
insert into msg_components (msg_id,msg_element_id, val) 

val ues (#my_message_i d# , #Appl i cati on . msg_el _bi d_i d# , 1 #bi d_i d# ' ) 
</CFQUERY> 
</CFIF> 

<CFIF "" IS "#FORM.ven_comments#"> 

<CFSET ven_msg = ""> 
<CFELSE> 

<CFSET ven_msg = "<br>Vendor comments :<br>#FORM. ven_comments#"> 

</CFIF> 

<CFQUERY NAME="getServi ceMrg" DATASOURCE="#dsn#"> 

select FIRST_NAME,MI f LAST_NAME,ENTI7Y_NAME from SERVICEJWG 

where ENTITY_S ERVIC E_ID = #Session.ent_srv_id# 

</CFQUERY> 

<! — call the send message template — > 

<CFSET my_recipient_id = #getlncSummary.PROPMAN_iD#> 

<cfset subject = "#bid_word# on incident #Session.inc_id# : 

#getlncSummary.HEADLINE#"> 

<CFSET body = 'You have received a #bid„word# on incident #Session.inc_id# :<br> 

#qetincsummary . HEADLlNE#<br> #getincsummary . DESCRiPTlON#<br> 

Tnis #bid_word# is provided by : 

#getservi ceMrg . FIRST_name# #getservi ceMrg . MI# 

#getservi ceMrg . LAST_NAME#, #getServi ceMrg . ENTlTY_NAME#<br> 

#quote_guts# 

#bieLmsg# 

#ven_msg# 

Please click <a 

href ="#Appl i cati on . extern_url _base#/ten_i nc . 1 pa?i nc_i d=#Sessi on . i nc_i d#"> 
#Appl i cati on . extern_url_base#/ten_i nc . 1 pa?i nc_i d=#sessi on . i nc_i d# for more 
details. '> 

<cfinclude TEMPLATE="send_msg . 1 pa"> 
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<CFSET title = "#bid_word# received"> 

<CFSET thanks_text = "Your #bid_word# has been sent to the property manager"> 
<CFSET back = "ven_home.lpa"> 

<CFIF "NO" is #delivered#> 

<CFSET thanks_text = '#thanks_text#<font color="red M >WARNlNG - could not find 
channel available to deliver to recipient. </font>'> 
</CFIF> 

<CFINCLUDE TEMPLATE^" thanks . 1 pa"> 
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<! — A template for simple "yes/no" questions. 

This template is intended to handle the DB updates for simple yes/no questions. 
Regardless of which of the two buttons that the user presses, this template 
does the following : 

1) If there was a form. comments, a comment is added to the incident 

2) A message is sent to my_reci pi ent_i d reflecting the outcome of the user's 

action 

3) The incident's state is updated to next_state iff the message was sent 
properly 

It is up to the calling (enclosing) file to set the input variables properly 
depending on which button that the user has pressed. 

Copyright 1999,2000 LandPort All rights reserved — > 

<CFPARAM NAME="my_recipient_id"> 
<CFPARAM NAME= H nextL.state"> 
<cfparam NAME="page_title ,, > 

<CFPARAM NAME= ,, msg„subject n DEFAULT="Message regarding incident #Session.inc_id#"> 
<CFPARAM NAME="msg_first_line M DEFAULT="#msg_subject# > 

<CFPARAM NAME= ,, msgjlid_text" DEFAULT= ,,M > 

<CFPARAM NAME="msg_type" DEFAULT="#Application.msg_generic# n > 

<! — <><> convert the next two parameters to handle lists as well as single items 

— > 

<CFPARAM NAME= M msg_el_id" DEFAULT="0"> 
<CFPARAM NAME="msg_COmp_val " DEFAULT="0 M > 

<CFPARAM NAME="event_name" DEFAULT="unknown"> 
<CFPARAM NAME="display_msg" DEFAULT="Data inserted"> 
<cfparam NAME= ,, sencLmessage ,, DEFAULT="YES"> 

< ! <HTML> 

<HEAD><TITLE><CFOUTPUT>#page_ti tl e#</CFOUTPUT></TITLE> 

</HEAD> 

<BODY> > 

<CFIF lsDefined("FORM.comments")> 

<cfset com_text = "#FORM.comments# ,, > 
<CFINCLUDE TEMPLATE="add_i nc_com_core . 1 pa"> 

<CFELSE> 

<CFSET corrutext = "(no comments) "> 

</CFIF> 

<CFSET my_now = #createOdbcDateTime(Now())#> 

<cfif "YES" is #send_message#> 
<! — Create the message — > 

<C FTRAN S ACTI ON> 

<CFQUERY NAME="insertMessage" DATASOURCE= ,, #dsn#"> 

insert into messages (time_created,msg_template, sender, subject) 
val ues (#my_now# , #msg_type# , #Sessi on . cor respondents d# , 
, #msg.subject# , ) 
</CFQUERY> 

<CFQUERY NAME="getMessageld" DATASOURCE="#dsn# M > 
select max(iD) as max_id from messages 

</CFQUERY> 
</CFTRANSACTION> 

<CFSET my_message_id = #getMessageld.MAX_lD#> 

<CFIF 0 IS NOT #msg_el_id#> 

<! — Add the relevant components to the message — > 
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<CFQUERY NAME= n insertMsgComponent" DATASOURCE="#dsn#"> 
insert into msGl_components (msg_id,msg_element_id,val) 
values (#my_message_id#,#msg_el_id#, , #msg_comp_val#') 
</cfquery> 
</cfif> 

<! — Build up some of the stuff that goes into the message to be sent — > 
<CFQUERY NAME="getIncSummary" DATASOURCE="#dsn#"> 
select 

ID , STATUS , HEADLINE , DESCRIPTION , UNIT_ID , UNIT_NAME , SERVICE_ID , SERVICE_NAME , URGENCY 
from INC_SUMMARY 

where ID = #Session.inc_id# 

</CFQUERY> 
<CFOUTPUT> 

<CFSET subject = ,, #msg_subiect#"> 
<CFSET body = '#msg_f"irstjline#<br> 

incident number : #Session.inc_id#<br> 
Location : #getincSummary.UNlT_NAME#<br> 
Description : #getlncSummary.HEADLINE#<br> 
#getlncsummary . DESCRIPTlON#<br> 

#msg_mi d_text# 

<p>#com_text#</p> 

Regards , 

#Session.fi rst_name# #Session.mi# #Session.last_name# 
■> 

</CFOUTPUT> 

<! — call the sencLmsg template to process the message — > 
<cfinclude TEMPLATE="send_msg . 1 pa"> 

<CFELSE> 

<CFSET delivered = "NO"> 

<CFSET my__message_id = 0> 
</CFlF> <! — send_message — > 

<! — Add an event to this incident — > 

<CFQUERY NAME="insertlncEvent" DATASOURCE="#dsn#"> 

insert into INC_EVENTS (INCIDENT_ID , EVENT_TYPE , REFERENCE_ID , WHO_ID , TIMESTP) 

val ues 

(#Session.inc_id#, '#event_name#' , #my_message_id#, 
#Session . correspondent^ d# f #my_now#) 

</CFQUERY> 

<CFSET title = "#page_title#"> 
<CFSET thanks_text = "#display_msg#"> 

<CFIF ("NO" IS "#delivered#") AND ("YES" is "#send_message#")> 

<CFSET thanks_text « 1 #thanks_text#<f ont color="red">WARNlNG - could not find 
channel available to deliver to recipient .</font>'> 

<CFELSE> 

<! — update incident record to change state to ready_for_inspection — > 
<CFQUERY NAME="updateState" DATASOURCE="#dsn#"> 
update INCIDENTS 

set STATELJD = #next_state# 
where ID = #Session.inc_id# 

</CFQUERY> 
</CFIF> 

<CFINCLUDE TEMPLATE="thanks.lpa n > 
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